Type 'Help' for help, or CO <name> <password> to connect
2
5
2
Your character is temporarily hosed.
2
5
2
Character creation is disabled.
2
5
2
2
5
0
0
2
5
2
?
2
1
2
login_me
2
1
4
2
4
0
4
0
2
0
4
2
4
0
4
0
2
0
4
2
4
0
4
0
2
0
0
0
2
0
0
40
2
5
4
2
4
0
4
0
2
0
4
0
2
5
5
2
4
4
1
2
Login Commands
2
5
2
This provides everything needed by #0:do_login_command. See `help $login' on $core_help for details.
2
5
4
2
0
23360
0
742881264
2
1
#13
Player Last_huh Verbs
16
2
-1
-1
-1
1
-1
12
4
@*
2
165
-1
give hand
2
173
-1
get take
2
173
-1
drop throw
2
173
-1
0
4
5
2
4
4
1
2
Player Last_huh Verbs
2
5
2
A repository of last-resort player verbs to be called by $player:last_huh
2
5
4
2
0
5153
0
743584517
2
1
#14
Guest Log
0
2
-1
-1
-1
1
-1
13
3
enter
2
173
-1
last
2
157
4
init_for_core
2
173
-1
1
connections
5
4
100
4
4
1
83
0
0
0
750853387
2
foobar@apple.com
4
4
1
84
0
0
0
750853349
2
foobar@apple.com
4
4
1
86
0
0
0
750853346
2
foobar@apple.com
4
4
1
85
0
0
0
750853344
2
foobar@apple.com
4
4
1
84
0
1
0
750853124
2
foobar@apple.com
4
4
1
86
0
1
0
750853114
2
foobar@apple.com
4
4
1
85
0
1
0
750853106
2
foobar@apple.com
4
4
1
83
0
1
0
750853071
2
foobar@apple.com
4
4
1
83
0
0
0
750802467
2
Bob_Monsen@Hawksbill_Station.E.T._Phone_Home
4
4
1
83
0
1
0
750802386
2
Bob_Monsen@Hawksbill_Station.E.T._Phone_Home
4
4
1
83
0
0
0
-1462983008
2
Guest@Sartre.Orion
4
4
1
83
0
1
0
-1462983087
2
Guest@Sartre.Orion
4
4
1
83
0
0
0
-1462995344
2
LocalUser@LocalMachine.LocalZone
4
4
1
83
0
1
0
-1462995597
2
LocalUser@LocalMachine.LocalZone
4
4
1
83
0
0
0
-1463168476
2
Guest@LiverSpot.E.T._Phone_Home
4
4
1
83
0
1
0
-1463168996
2
Guest@LiverSpot.E.T._Phone_Home
4
4
1
83
0
0
0
-1463169407
2
Guest@LiverSpot.E.T._Phone_Home
4
4
1
83
0
1
0
-1463169427
2
Guest@LiverSpot.E.T._Phone_Home
4
4
1
83
0
0
0
-1463203906
2
Guest@LiverSpot.E.T._Phone_Home
4
4
1
83
0
1
0
-1463203977
2
Guest@LiverSpot.E.T._Phone_Home
4
4
1
83
0
0
0
-1463204008
2
Guest@LiverSpot.E.T._Phone_Home
4
4
1
83
0
1
0
-1463204018
2
Guest@LiverSpot.E.T._Phone_Home
4
4
1
83
0
0
0
-1463230621
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
1
0
-1463230635
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
0
0
-1463403259
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
1
0
-1463403426
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
0
0
-1463516142
2
Guest@Spot.Orion
4
4
1
83
0
1
0
-1463516153
2
Guest@Spot.Orion
4
4
1
83
0
0
0
-1463586562
2
Bob_Monsen@Sartre.Orion
4
4
1
85
0
0
0
-1463586562
2
Bob_Monsen@Sartre.Orion
4
4
1
86
0
0
0
-1463586562
2
Bob_Monsen@Sartre.Orion
4
4
1
84
0
0
0
-1463586562
2
Bob_Monsen@Sartre.Orion
4
4
1
85
0
1
0
-1463586565
2
Bob_Monsen@Sartre.Orion
4
4
1
86
0
1
0
-1463586579
2
Bob_Monsen@Sartre.Orion
4
4
1
84
0
1
0
-1463586594
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
1
0
-1463586608
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
0
0
-1464015435
2
Guest@Sartre.Orion
4
4
1
83
0
1
0
-1464015472
2
Guest@Sartre.Orion
4
4
1
83
0
0
0
-1464028557
2
Guest@Sartre.Orion
4
4
1
83
0
1
0
-1464028591
2
Guest@Sartre.Orion
4
4
1
83
0
0
0
-1464028595
2
Guest@Sartre.Orion
4
4
1
83
0
1
0
-1464028603
2
Guest@Sartre.Orion
4
4
1
83
0
0
0
-1464095988
2
uest@murdock.Orion
4
4
1
83
0
1
0
-1464100755
2
uest@murdock.Orion
4
4
1
83
0
0
0
-1464103676
2
uest@Spot.Orion
4
4
1
83
0
1
0
-1464104475
2
uest@Spot.Orion
4
4
1
83
0
0
0
-1464104516
2
uest@Spot.Orion
4
4
1
83
0
1
0
-1464104544
2
uest@Spot.Orion
4
4
1
83
0
0
0
-1464162978
2
Bob_Monsen@Hawksbill_Station.E.T._Phone_Home
4
4
1
83
0
1
0
-1464163068
2
Bob_Monsen@Hawksbill_Station.E.T._Phone_Home
4
4
1
83
0
0
0
-1464180254
2
uest@Dalmation.Orion
4
4
1
83
0
1
0
-1464180316
2
uest@Dalmation.Orion
4
4
1
83
0
0
0
-1464194063
2
uest@Spot.Orion
4
4
1
83
0
1
0
-1464194499
2
uest@Spot.Orion
4
4
1
83
0
0
0
-1464196914
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
1
0
-1464196956
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
0
0
-1464205591
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
1
0
-1464205712
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
0
0
-1464208251
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
1
0
-1464208256
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
0
0
-1464247622
2
Bob_Monsen@Hawksbill_Station.E.T._Phone_Home
4
4
1
83
0
1
0
-1464248749
2
Bob_Monsen@Hawksbill_Station.E.T._Phone_Home
4
4
1
83
0
0
0
-1464249735
2
@Hawksbill_Station.E.T._Phone_Home
4
4
1
83
0
1
0
-1464250200
2
@Hawksbill_Station.E.T._Phone_Home
4
4
1
83
0
0
0
-1464325878
2
@Black_Buffalo_Woman.E.T._Phone_Home
4
4
1
83
0
1
0
-1464331159
2
@Black_Buffalo_Woman.E.T._Phone_Home
4
4
1
83
0
0
0
-1464412478
2
@Black_Buffalo_Woman.E.T._Phone_Home
4
4
1
83
0
1
0
-1464415281
2
@Black_Buffalo_Woman.E.T._Phone_Home
4
4
1
83
0
0
0
-1464438517
2
@Red_Cloud.Orion
4
4
1
83
0
1
0
-1464440591
2
@Red_Cloud.Orion
4
4
1
83
0
0
0
-1464453022
2
@Mighty_Mouse.Orion
4
4
1
83
0
1
0
-1464453190
2
@Mighty_Mouse.Orion
4
4
1
83
0
0
0
-1464513191
2
s_Macintosh.E.T._Phone_Home
4
4
1
83
0
1
0
-1464513308
2
s_Macintosh.E.T._Phone_Home
4
4
1
83
0
0
0
-1464515299
2
s_Macintosh.E.T._Phone_Home
4
4
1
83
0
1
0
-1464515307
2
s_Macintosh.E.T._Phone_Home
4
4
1
83
0
0
0
-1464536514
2
@Kant.Orion
4
4
1
83
0
1
0
-1464536529
2
@Kant.Orion
4
4
1
83
0
0
0
-1464618802
2
John_Louch@Spot.Orion
4
4
1
83
0
1
0
-1464618945
2
John_Louch@Spot.Orion
4
4
1
83
0
0
0
-1464625335
2
John_Louch@Spot.Orion
4
4
1
83
0
1
0
-1464625473
2
John_Louch@Spot.Orion
4
4
1
83
0
0
0
-1464632552
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
1
0
-1464632574
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
0
0
-1464632851
2
John_Louch@Dalmation.Orion
4
4
1
84
0
0
0
-1464634382
2
Bob_Monsen@Sartre.Orion
4
4
1
84
0
1
0
-1464634411
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
1
0
-1464636558
2
John_Louch@Dalmation.Orion
4
4
1
83
0
0
0
-1464638300
2
John_Louch@Dalmation.Orion
4
4
1
83
0
1
0
-1464641590
2
John_Louch@Dalmation.Orion
4
4
1
83
0
0
0
-1464700603
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
1
0
-1464700609
2
Bob_Monsen@Sartre.Orion
4
4
1
86
0
0
0
-1465032759
2
Bob_Monsen@Kant.Orion
4
4
1
83
0
0
0
-1465044099
2
Bob_Monsen@Sartre.Orion
4
4
1
86
0
1
0
-1465044140
2
Bob_Monsen@Kant.Orion
4
4
1
83
0
1
0
-1465044160
2
Bob_Monsen@Sartre.Orion
4
4
1
83
0
0
0
-1465044418
2
Bob_Monsen@Kant.Orion
4
4
1
83
0
1
0
-1465045605
2
Bob_Monsen@Kant.Orion
4
4
1
83
0
0
0
-1465146164
2
'Orion'
4
4
1
83
0
1
0
-1465146205
2
'Orion'
2
0
5
2
4
4
1
2
Guest Log
2
5
5
2
5
4
2
0
9077
0
743666595
2
1
#15
Generic BigList Utilities
144
38
-1
-1
-1
1
-1
73
25
length
38
173
-1
find_nth
38
173
-1
find_ord
38
173
-1
set_nth
38
173
-1
kill
38
173
-1
insert_after insert_before
38
173
-1
extract_range
38
173
-1
delete_range
38
173
-1
keep_range
38
173
-1
insert_last
38
173
-1
start
38
173
-1
next
38
173
-1
_find_nth
38
173
-1
_find_ord
38
173
-1
_set_nth
38
173
-1
_skill
38
173
-1
_extract
38
173
-1
_merge
38
173
-1
_smerge
38
173
-1
_split
38
173
-1
_rmerge
38
173
-1
_scrunch
38
173
-1
_listfind_nth
38
173
-1
_insertfirst
38
173
-1
debug
38
173
-1
2
about
maxfanout
6
4
15
2
Implementation notes
2
--------------------
2
Each biglist is actually a tree (a kind of B-tree, actually).
2
The routines above pass around handles of the form
2
2
{root_node, size, leftmost_ord}
2
2
where root_node is the (string) name of a property that holds the root of the tree, size is the number of leaves in the tree, and leftmost_ord is the :_ord value of the leftmost element of the list (i.e., the leftmost leaf).
2
Each node property has a value of the form
2
2
{height,list of subtrees}.
2
2
where the each of the subtrees is itself a 3-element list as above unless
2
the height is 0, in which case the subtrees are actually biglist elements of the arbitrary form determined by the home object.
2
At every level, each node except the rightmost has between this.maxfanout/2 and this.maxfanout subtrees; the rightmost is allowed to have as few as 1 subtree.
38
5
0
7
38
5
5
38
4
4
2
2
ghblu
2
biglist_utils
38
1
4
73
2
Generic BigList Utilities
2
----------------------------
2
This is a package for maintaining huge persistent (sorted) lists in a format that is less likely to spam the server (which runs into a certain amount of trouble dealing with long ordinary lists --- btw we use `biglist' to refer to the huge data structure we're about to describe and `list' to refer to ordinary MOO lists {...}). The biglist in question lives on a particular object, to which we will refer in the discussion below as the `home' object, and its various elements appear as leaves of a tree whose nodes are kept in properties of the home object. It should be noted that the home object does not need to be (and in fact should *not* be) a descendant of this one; this object merely provides utilities for manipulating the properties on the home object that are used in a particular biglist manipulation.
2
2
All of the utilities below refer to `caller' to locate the home object. Thus verbs to manipulate a given biglist must be located on or inherited by its home object itself. The home object needs to define the following verbs
2
2
:_make(@args) => new property on home object with value args
2
:_kill(prop) delete a given property that was created by :_make
2
:_get(prop) => home.prop
2
:_put(prop,@args) set home.prop = args
2
:_ord(element) given something that is of the form of a biglist element
2
return the corresponding ordinal (for sorting purposes).
2
If you never intend to use :find_ord, then this can be a
2
routine that always returns 0 or some other random value.
2
2
See #5546 (Generic Biglist Resident) or $big_mail_recipient
2
for examples.
2
2
Those of the following routines that take a biglist argument are expecting
2
either {} (empty biglist) or some biglist returned by one of the other routines
2
2
:length(biglist) => length(biglist) (i.e., number of elements)
2
:find_nth(biglist,n) => biglist[n]
2
:find_ord(biglist,k,comp) => n where n is
2
the largest such that home:(comp)(k,home:_ord(biglist[n])) is false, or
2
the smallest such that home:(comp)(k,home:_ord(biglist[n+1])) is true.
2
Always returns a value between 0 and length(biglist) inclusive.
2
This assumes biglist to be sorted in order of increasing :_ord values
2
with respect to home:(comp)().
2
Standard situation is :_ord returns a number and comp is a < verb.
2
2
:start(biglist,s,e) => {biglist[s..?],@handle} or {}
2
:next(@handle) => {biglist[?+1..??],@newhandle} or {}
2
These two are used for iterating over a range of elements of a biglist
2
The canonical incantation for doing
2
for elt in (biglist[first..last])
2
...
2
endfor
2
is
2
handle = :start(biglist,first,last);
2
while(handle)
2
for elt in (handle[1])
2
...
2
endfor
2
handle = :next(@listdelete(handle,1));
2
endwhile
2
2
The following all destructively modify their biglist argument(s) L (and M).
:pronoun_quote (string/list/subst_list) -- quoting for pronoun substitutions.
2
2
Miscellaneous string munging:
2
2
:trim (string) => string with outside whitespace removed.
2
:triml (string) => string with leading whitespace removed.
2
:trimr (string) => string with trailing whitespace removed.
2
:strip_chars (string,chars) => string with all chars in `chars' removed.
2
:strip_all_but(string,chars) => string with all chars not in `chars' removed.
2
:capitalize/se(string) => string with first letter capitalized.
2
:uppercase/lowercase(string) => string with all letters upper or lowercase.
2
:names_of (list of OBJ) => string with names and object numbers of items.
2
:a_or_an (word) => "a" or "an" as appropriate for that word.
2
2
A useful property:
2
2
.alphabet => "abcdefghijklmnopqrstuvwxyz"
2
5
4
2
0
68496
0
743619405
2
1
#21
building utilities
24
2
-1
-1
-1
1
-1
42
5
make_exit
2
173
-1
set_names
2
165
-1
recreate
2
173
-1
transfer_ownership(useless)
2
169
-1
parse_names
2
173
-1
0
4
5
2
4
4
2
2
building
2
utils
2
5
4
13
2
Verbs useful for building. For a complete description of a given verb, do `help $building_utils:verbname'.
2
2
make_exit(spec,source,dest[,don't-really-create]) => a new exit
2
spec is an exit-spec as described in `help @dig'
2
2
set_names(object, spec) - sets name and aliases for an object
2
parse_names(spec) => list of {name, aliases}
2
in both of these, spec is of the form
2
<name>[[,:]<alias>,<alias>,...]
2
(as described in `help @rename')
2
2
recreate(object, newparent) - effectively recycle and recreate object
2
as a child of newparent
2
5
4
2
0
7048
0
743619406
2
1
#22
Verb Help DB
16
38
-1
-1
-1
1
-1
14
3
find_topics
38
173
-1
get_topic
2
173
-1
dump_topic
2
173
-1
0
4
5
38
4
4
2
2
verbhelp
2
vh
38
5
2
A `help database' that knows about all of the documented verbs.
38
5
4
2
0
2482
0
743584526
2
1
#23
Core Utility Help
16
38
-1
-1
-1
32
-1
-1
3
find_topics
38
165
-1
get_topic
38
173
-1
dump_topic
2
173
-1
31
$login
$container
$mail_agent
MR-subscribing
MR-naming
MR-access
$mail_recipient
receiving-mail
mail-format
mail-resolve
sending-mail
mail-system
$player_db
core-index
object-matching
$no_one
$exit
$room
$help
$generic_db
$generic_editor
$generic_help
$generic_options
MR-sequences
MR-reading
MR-writing
MR-searching
$housekeeper
$recycler
$error
$biglist
36
4
70
2
$login
2
------
2
This object manages command parsing for unconnected players and governs the initiation of an actual connection. There are verbs pertaining to registration, controlling player creation, and doing site-locks (see `help blacklist' on $wiz_help).
2
2
COMMANDS FOR UNCONNECTED PLAYERS
2
2
Recall that for each line that an unconnected player types, the server parses that line into words (the same way normal commands are parsed into a list of words that is then assigned to `args') and then #0:do_login_command is called.
2
2
:parse_command (@args) => {verb, @args}
2
given the sequence of arguments that were fed to #0:do_login_command
2
this returns the name of a verb on $login to be called together with a
2
list of arguments to be passed to it.
2
2
By default this just returns args iff args[1] names an actual verb on $login that is +x and has args {"any","none","any"}. Otherwise, it returns one of
2
2
.blank_command -- verb to call if command line is empty
2
.bogus_command -- verb to call if command line otherwise unintelligible
2
2
In both cases :parse_command returns a verbname followed by the entire args list passed to it (including the would-be verb at the beginning if any).
2
2
Currently the following verbs are availabe to non-connected players
2
2
h*elp @h*elp -- print .welcome_message
2
? -- print a short list of available commands
2
w*ho @w*ho -- print a list of logged in players (excluding wizards)
2
co*nnect @co*nnect -- connect to an existing player
2
cr*eate @cr*eate -- create a new player
2
up*time @up*time -- tell how long the server has been running
2
version @version -- tell which version of the server is running
2
q*uit @q*uit -- logoff
2
2
Adding a new command is fairly straightforward; just create a verb on $login, making sure a previous verb doesn't already match the name you want to give it. Then give it args of "any" "none "any" and make sure it is +x. Such a verb should begin with `if (caller != #0) return E_PERM; ...' so as to prevent anyone other from a not-logged-in player from making use of it.
2
2
CUSTOMIZATIONS
2
2
.welcome_message
2
-- the message for "help" to print.
2
.create_enabled
2
== 0 => @create prints .registration_string if one tries to use it
2
== 1 => anyone from a non-blacklisted site (see `help blacklist')
2
may use @create to make a new player
2
2
.registration_address
2
-- an email address for character creation requests
2
.registration_string
2
-- string to print to players to give them information about how to get
2
a character created for them, .registration_address is substituted
2
for %e, % for %%
2
.newt_registration_string
2
-- string to print to @newted players (see `help @newt').
2
same substitutions as for .registration_string.
2
2
Other verbs
2
:registration_string() => .registration_string with substitutions
2
:newt_registration_string() => .newt_registration_string with substitutions
2
:player_creation_enabled(connection)
2
decides whether someone on connection should be allowed to create
2
a player. If you decide this shouldn't depend strictly on the blacklist
2
and on the value of .create_enabled, here's where the extra code can go.
2
:check_for_shutdown()
2
prints a warning message to append to the login banner in the event
2
that the server will be going down soon.
2
:check_player_db()
2
prints a warning message to append to the login banner in the event
2
that $player_db is being reloaded to warn players that their character
2
names might not be recognized.
2
2
SITE LOCKS
2
see `help blacklist'
2
38
5
4
29
2
The Generic Container (for programmers)
2
2
In addition to the command verbs described under `help containers'
2
and the _msg properties described in `help container-messages',
2
the following verbs and properties are available for use within programs
2
2
.opened == TRUE iff the container is open
2
.dark == TRUE iff the contents of the container may be seen
2
.opaque -- describes the correlation between .open and .dark
2
== 0 container is always !dark
2
== 1 container is dark iff it is closed
2
== 2 container is always dark
2
2
:set_opaque(newvalue)
2
changes the .opaque value for the container
2
=> newvalue or E_PERM or E_INVARG
2
2
:set_opened(newvalue)
2
opens/closes the container (updates .open and .dark) according to newvalue
2
=> newvalue or E_PERM
2
2
:is_openable_by(player)
2
what the :open command uses to test whether the player should be able to open
2
the container. By default this refers to .open_key (set by
2
@(un)lock_for_open), but the object owner is free to customize this.
2
2
N.B.: There is no way to directly set .dark; .dark can be changed only by
2
changing one of .opaque or .opened. Use :set_opaque(0) and :set_opaque(2)
2
to have .dark change independently of the value of .opened.
38
5
4
68
2
$mail_agent
2
2
This object contains a two distinct sets of routines:
2
2
1. utilities for performing basic mailsystem functions, e.g.,
2
matching on recipient names, resolving mail forwarding,
2
formatting messages, sending messages
2
2
Recipient Matching
2
2
match - match on a $mail_recipient
2
match_recipient - match on either a $mail_recipient or a player
2
match_failed - print angry messages to the user for $failed/ambiguous_match
2
2
look_self - provides a list of available $mail_recipients
2
check_names
2
touch
2
accept
2
2
Message Format
2
2
make_message - produces a message in the canonical transmission format
2
name - single recipient => string for address field
2
name_list - list of recipients => string for address field
2
parse_address_field - address field string => object list
(only called by $mail_editor:send and this:send_message)
2
resolve_addr - converts a given list recipients into a list of actual
2
recipients and objects to be notified.
2
sends_to - Does X forward (transitively) to Y
2
2
Mail Options
2
2
option
2
option_verbose
2
2
2. canonical versions of mail_recipient verbs
2
2
Ideally, the verbs to perform operations on a given mail recipient would be located on the recipient itself, except for the fact that these verbs also need to be located on players, which for various reasons, shouldn't be children of $mail_recipient. Multiple inheritance would solve our problems, but we don't have it yet. Ergo, both $mail_recipient and $player refer to the following verbs here:
2
2
display_seq_full print entire text of messages (@read)
2
display_seq_headers print headers of messages (@mail)
The $mail_agent versions of these verbs are set_task_perms(caller_perms()) and perform their operations on caller, which in turn is assumed to have done any necessary security checks.
38
5
4
38
2
Subscribing to Mail Recipients
2
------------------------------
2
There are two notions of being "subscribed" to a mailing list/recipient.
2
2
(1) Hard subscribed == being on the recipient's .mail_forward list so that mail sent to this list is forwarded to one's own .messages as well (see `help mail-forwarding').
2
2
(2) Soft subscribed == keeping track of a current message for this recipient and (optionally) being on the recipient's .mail_notify list.
2
2
2
Each player has a .current_message property that contains, for each recipient the player cares to keep track of, a current message number and a last read date.
2
2
player:current_message(rcpt) (somewhat obsolete)
2
=> player's current message number for rcpt
2
2
player:get_current_message(rcpt)
2
=> player's {current message number for rcpt, last-read-date for rcpt}
2
2
player:make_current_message(rcpt)
2
=> adds a current_message entry for rcpt (NOOP if rcpt == player)
2
2
player:set_current_message(rcpt,n|E_NONE,[,date])
2
=> sets player's current message number for rcpt to n iff n!=E_NONE
2
updates the last-read-date for rcpt to date iff date > last-read-date
2
2
player:kill_current_message(rcpt)
2
=> removes current-message info for rcpt (NOOP if rcpt == player)
2
2
2
On $mail_recipient, .mail_forward and .mail_notify are -c so one needs to use the following verbs to actually modify them.
2
2
:add_forward(@new_recipients)
2
:delete_forward(@recpients)
2
:add_notify(@new_notifiees)
2
:delete_notify(@notifiees)
2
2
A recipient's owner is, of course, allowed to make arbitrary changes to .mail_forward and .mail_notify. However, the default versions of these verbs also allow any player to add him/herself to a recipient's .mail_forward or .mail_notify if the recipient is readable (see `help MR-access') by him/her.
2
2
Likewise any player may use the :delete* verbs to delete him/herself from any .mail_forward/.mail_notify list, regardless of his actual access to the list.
38
5
4
15
2
One may always refer to a list by its object number. In order to refer to it by name, it must be contained in $mail_agent, which holds all mailing lists, i.e., those that you want others to be able to refer to by name.
2
2
The .aliases field holds the names by which one may refer to the list, but only those names not containing spaces actually count for anything. As with certain other types of objects (e.g., players), set_aliases() needs to be called in order to change the .aliases field.
2
2
$mail_agent:match(name)
2
is the canonical way to obtain the objectid of a mailing list
2
given the name ("*" is assumed; an initial "*" will be dropped).
2
2
$mail_agent:match_recipient(name)
2
is the canonical way to obtain the objectid of a list or player
2
matching the given name. An initial "*" indicates that this is
2
supposed to be a list.
2
2
$mail_agent:match_failed(objid,name)
2
is the mail_recipient counterpart to $command_utils:object_match_failed
38
5
4
32
2
Controlling Access to Mail Recipients
2
-------------------------------------
2
:is_writable_by(one) - one may alter/add/remove saved messages
2
:is_readable_by(one) - one may read messages.
2
:is_usable_by(one) - one may send to this list
2
2
By default, these verbs refer to the following properties:
2
2
writers - list of players other from the owner who can do anything
2
readers - if == 1, indicates a public mailing list.
2
list of additional readers (by default anyone who receives mail
2
sent to the list can read the saved messages).
2
moderated - if false, indicates a normal mail recipient everyone can send to.
2
otherwise this should be a list of approved senders.
2
2
Terminology:
2
A mailing list is "public" if everyone can read it.
2
A mailing list is "moderated" if not everyone can send to it.
2
2
Note that while being able to write to a recipient implies being able to read from it or send to it, neither of read-ability or send-ability implies the other.
2
2
It is highly recommended that if you are creating custom mail recipients with variable reader/sender lists, i.e., you find you need to write your own :is_readable/usable/writabe_by verbs, you are best off if such verbs are of the form
2
2
return pass(@args) || << your_test(args[1]) >>
2
2
and have .writers == .readers == {} and .moderated == 1. This will ensure
2
(1) wizards having write access
2
--- necessary in order for :receive_message to work
2
(2) writers being able to read and send (the converse being a ludicrous
2
situation),
2
(3) persons on the mail_forward list of someone with reader access will also
2
have read access (convenient).
38
5
4
19
2
Generic Mail Recipient
2
----------------------
2
A "mail recipient" is, by definition, an object that can be sent mail.
2
Mail recipients must either be players or descendants of $mail_recipient.
2
2
One source of confusion is that the terms "mail recipient", "mail folder", "mailing list", and "mail collection" really all refer to the same kind of object. It so happens that $mail_recipient serve several distinct functions and we tend to use whatever term happens to best match the application under discussion, e.g., it's a "mailing list" if we're playing with its .mail_forward property but it's also a "mail folder" if we're examining the messages that have been saved in it.
2
2
Note that, by default, a freshly created recipient is accessibly only by you. If you wish to make a publically accessible recipient, set .readers=1. Furthermore, if you want to allow a message on your recipient to be removed by its sender without your intervention, set .rmm_own_msgs=1. Finally, in order for other players to be able to refer to your recipient by name, the object must reside in $mail_agent. $mail_agent will not accept the object unless it has an actual description and a name distinct from all other mail recipient names/aliases.
2
2
Topics:
2
2
MR-access -- controlling read, write and send access to a recipient
2
MR-naming -- naming conventions and how to match on recipient names
2
MR-sequences -- message sequence arguments to $mail_recipient verbs
2
MR-reading -- reading messages/headers on recipients
2
MR-searching -- searching message lists for patterns in certain fields
By definition a recipient "receives" a mail message when its :receive_message verb is called with that message as an argument.
2
2
:new_message_num()
2
=> number that will be assigned to the next incoming message.
2
By default this returns the maximum of the message numbers appearing in
2
messages or .messages_going, incremented by 1. If the recipient is a player
2
then the value returned will be 1 higher if it conflicts with the player's
2
current message number for him/herself.
2
2
:receive_message(msg,sender)
2
By default this first calls this:new_message_num to obtain a message number to assign to the incoming message and then appends {num,msg} to this.messages.
2
`sender', the original sender, is supplied in case one wants different
2
action depending on who is sending the message (e.g., mail-gagging).
2
The return value should be an error or string if :receive_message is considered to have failed in some way. Otherwise, a number should be returned --- this number is given to any :notify_mail routines that are called and is expected to either be 0 or the number assigned to the incoming message.
2
2
Note that :receive_message can do arbitrary things, including resending the same message to a new destination. Hacking :receive_message to resend messages is different from using .mail_forward in the following respects
2
(1) the resent message is considered to be a distinct message having this
2
object as its "author" --- i.e., the From: line will necessarily be
2
different.
2
(2) since this "forwarding" is invisible to the mailsystem,
2
there is no protection against loops and multiple copies.
2
38
5
4
34
2
Mail Transmission Format
2
------------------------
2
There is a standard message format used for transmitting messages. This is the format that $mail_editor:make_message produces, and that :receive_message verbs on players and $mail_recipients expect to see. The (currently experimental) @refile and @copym commands also use this format to transfer messages.
2
2
This *transmission* format is distinct from the *storage* format, though, for convenience this same format is often used as well for storing messages in player collections and ordinary $mail_recipient children though, in general, there is no requirement that this be the case.
2
2
A transmitted message is a list in the following form
2
2
date (number),
2
the time() value at the time the message was sent.
2
from (string),
2
the sending object (address list form)
2
if this is not a player, an additional header will indicate the
2
current ownership of the object.
2
to (string),
2
recipients (address list form) which can either be players
2
or $mail_recipient descendents.
2
subject (string),
2
subject of the message, or " " if there is no subject,
2
@additional optional headers (list of strings),
2
each header has the form "<header-name>: text" where <header-name>:
2
is padded out to a width of 10 columns for the convenience of
2
:display_message. Currently "Reply-to: <address list>" is the only
2
additional header in use,
2
"",
2
@body of message (list of strings)
2
2
Note that the from, to and subject lines do *not* include a header name like "From:", "To:", or "Subject:". The @'s indicate that the lists in question get spliced in (as usual), thus the entire message is a list whose first element is a number and the rest are strings.
2
2
The address lists that appear in the from and to lines is a string in the form a sequence of object ids, each enclosed in parentheses and preceded by optional text, e.g.,
2
2
"*Core-DB-Issues (#8175), Rog (#4292), and Haakon (#2)"
2
2
The text is intended to give the current name of each object for the benefit of human readers, but is actually ignored by all header parsing routines. The convention is that the text is either a player name or a * followed by a mailing list name.
38
5
4
52
2
Resolving Mail Forwarding & Notification
2
----------------------------------------
2
For each recipient of a given mail message, the following two verbs are called to determine where the message should actually go and who should be notified about it:
2
2
:mail_forward([from])
2
should return either
2
. a list of objects (either players or $mail_recipients)
2
to which mail for this recipient will be redirected.
2
. a string error message to be printed to the player sending the message.
2
If this recipient is one of the original destinations (i.e., not the
2
result of a previous forwarding), no mail is actually sent.
2
2
If :mail_forward returns a nonempty list, the recipient itself will *not*
2
actually receive the mail message unless it is included in the list.
2
#-1 is allowed to be on the list; it is ignored but does make the list
2
nonempty. Thus, having :mail_forward() return {#-1} is the canonical way
2
to have arriving mail disappear without being kept or forwarded.
2
2
:mail_notify([from])
2
should return a list of objects that are to be told about any mail sent
2
to this recipient (whether or not the recipient actually receives it).
2
Said objects must have a :notify_mail verb, but other from that, there
2
is no restriction on what these can be.
2
2
object:notify_mail is called with the arguments
2
(sender,recipients,msgnumbers) where
2
recipients == list of recipients including object in .mail_notify
2
msgsnumbers == corresponding list of :receive_message return values
2
(or 0 if :receive_message is not actually called, which
2
will be the case if the recipient forwards without keeping)
2
2
When called as part of a mail send, the `from' argument is the immediate predecessor on the forwarding chain. The default versions of these verbs return the values of .mail_forward and .mail_notify respectively (pronoun_subbing if the value is a string), unless this is a moderated mailing list and `from' is an unapproved sender (see `help MR-access') in which case the following verbs are called instead:
2
2
:moderator_forward(from)
2
what :mail_forward should return for mail coming from unapproved senders
2
This returns .moderator_forward (pronoun_subbed if a string) by default.
2
2
:moderator_notify(from)
2
what :mail_notify should return for mail coming from unapproved senders
2
This returns .moderator_notify (pronoun_subbed if a string) by default.
2
2
Since the :mail_forward verbs only see the previous sender in the forwarding chain, if, e.g, B is moderated but A can send to B (i.e., B:mail_forward(A) returns an actual list), then any mail sent to A goes to B even if the original sender isn't normally allowed to send to B directly.
2
2
These verbs should all allow `from' to be omitted in which case they should return as if `from' were a generic approved sender (e.g., wizard).
2
2
It should rarely be necessary to actually modify any of :*_forward/*_notify verbs, since one has a fair amount of control over their behavior via the following properties
(this must be you or something you own; otherwise => E_PERM)
2
recipients: object or list of objects (must all be players or
2
$mail_recipient descendants)
2
headers: either a string (contents of the Subject: line)
2
or a list {subject,replytos} replytos is a list
2
of objects designated to receive replies.
2
Use {"",replytos} to have a Reply-to: without a Subject:
2
2
This is the canonical way to send a mail message from a program.
2
This calls $mail_agent:make_message to format the arguments into an actual message (see `help mail-format') and then $mail_agent:raw_send to do the actual sending which goes as follows:
2
2
(1) Call :mail_forward on all recipients add any new recipients thus obtained to final recipient list, keep calling mail:forward on the new recipients until we obtain no additional recipients. If one of the initial recipients is invalid, is not a player or $mail_recipient, or has its mail_forward return a string error, then we print the error message and abort at this point with no mail being sent. If one of the later recipients bombs similarly, error messages are printed, but in this case mail still goes out to the other recipients.
2
2
(2) Call :mail_notify on all recipients encountered in stage (1) to get a list of objects to notify.
2
2
(3) All final recipients receive the message (see `help receive-mail')
2
(4) All notifications are delivered (using :notify_mail())
2
2
We return {0, @failed_recipients} if we bombed out at step 1.
2
Otherwise return {1, @actual_rcpts} indicating what mail was sent.
38
5
4
13
2
Mail System
2
-----------
2
The following topics describe the guts of the LambdaCore mail system
2
2
sending-mail -- how to send mail from a program; what happens.
2
mail-forwarding -- how to do mail forwarding/notification (the simple version)
2
mail-resolution -- how mail forwarding/notification works, in gory detail
2
receiving-mail -- what :receive_message should do
2
mail-format -- format of transmitted messages
2
mail-command-parsing (TODO) -- routines for parsing mail commands
2
2
$mail_recipient -- generic non-player mail recipient
2
$mail_agent -- mail utility object
38
5
4
34
2
2
Database of Players
2
-------------------
2
This is an instance of the Generic Database ($generic_db) that
2
holds the {name/alias,#objectid} pairs for every
2
name and alias of every player in the MOO.
2
2
Verbs supplied include
2
2
:find(string) => player or $ambiguous_match or $failed_match
2
:find_exact(string) => player or $failed_match (does not do partial matches)
2
:find_all(string) => list of all matching players
2
2
:insert(string,player)
2
records that string is now a name or alias of player
2
:delete(string)
2
removes string from the db
2
:available(string)
2
returns 1 if string is available as a player name or alias,
2
an object if string is in use, or 0 if string is otherwise unavailable.
2
:load()
2
resets the db, inserting all current player names and aliases.
2
2
The internal representation and all of the above verbs (except :load() and
2
:available()) are as described for $generic_db.
2
2
It should be noted that for any application that involves resolving a player name from a command line, you should be using $string_utils:match_player() rather than $player_db:find(), since the former will deal correctly with other ways of referring to players apart from their names and aliases (e.g., literal object numbers, "me", "$no_one"...).
2
2
:load() needs to be done periodically as it is possible for the player db
2
to get out of synch with reality. In particular, there is currently no way
2
to block someone writing his own player :recycle() verb that neglects to
2
remove his names from the player db.
2
2
While a :load() is in progress the .frozen property is set to 1 to indicate that any results of :find*() are not to be trusted.
38
5
4
2
2
*index*
2
Core Utility Help Topics
38
5
4
64
2
2
Which :match...() Verb Do I Call?
2
---------------------------------
2
There are many situations where one wishes to obtain an object from a room or a player's .contents whose name/aliases matches a particular string. There are four main verbs available for this and it is important to understand the distinctions between them and how they are supposed to be used.
2
2
(*) LOC:match("X")
2
-- what you get looking for something that is inside LOC and named "X".
2
By default, this looks through LOC.contents to find a unique object
2
having a name or alias that has "X" as a prefix.
2
2
Essentially, you can think of :match as a contents-matching verb, though, e.g., for rooms you also get matches on exits as well.
2
2
(*) LOC:match_object("X", YOU) [YOU defaults to player]
2
(*) YOU:my_match_object("X", LOC) [LOC defaults to player.location]
2
-- what YOU get being located at LOC and looking for something named "X".
2
By default these both return $string_utils:match_object("X",LOC,YOU)
2
2
(*) $string_utils:match_object("X", LOC, YOU)
2
-- what you *would* get *if* YOU were a typical player, YOU were inside LOC,
2
YOU were looking for something named "X", *and* LOC were a typical place.
2
2
In other words, $string_utils:match_object describes the :match_object() algorithm for "typical places" and the :my_match_object for "typical players":
2
2
(1) check for "X" being one of "", "me", "here", "$something", or "#n"
2
(2) try YOU:match("X") i.e., something in your inventory (maybe)
2
(3) try LOC:match("X") i.e., some object in the room (maybe)
2
2
The distinction between these location:match_object and player:my_match_object has to do with whether the player or the location should determine what the matching algorithm is. Which one you should use depends on the command that you are writing. If you are writing a command with a virtual-reality flavor, then you should be respecting the room owner's idea of which objects you can "see" and thus the command should be calling the location's :match_object verb. If you are writing a building/programming command where it is appropriate for the player to determine the matching algorithm --- whether because the current location is irrelevant, not to be trusted, or both --- then the player's :my_match_object verb should be called.
2
2
Examples:
2
2
`look diamond in box'
2
calls box:match("diamond"). This is a match on the contents of box.
2
2
`take ball',
2
calls player.location:match_object("ball")
2
to determine which "ball" to take. Note that if the room is dark,
2
we might not be able to find any "ball".
2
2
`@program widget:foo',
2
calls player:my_match_object("widget") to get the player's own idea
2
of what "widget" should be. Note that if I were carrying something
2
named "widget" and expecting to be programming a :foo() verb on it,
2
it would be potentially disastrous should the room where I am decide
2
for me to be programming something else (not even necessarily
2
called "widget").
2
2
Object Matching Failures
2
------------------------
2
As with other matching routines, one gets back
2
2
$failed_match in the case of no matching object
2
$ambiguous_match in the case of more than one matching object
2
$nothing in the case of a blank string argument
2
2
or an object-id. In these first 3 cases, one usually wants to translate these nonresults to the player; this is what $command_utils:object_match_failed. The standard idiom to mimic what the builtin parser does, say, with the direct object is
"...give up. nothing to do. error message has already printed...";
2
else
2
"...dobj is something useful. Continue...";
2
...
2
endif
38
5
4
15
2
$no_one
2
-------
2
..is a powerless player. He owns no objects, not even himself; nor does he own any verbs. He is, however, a programmer and thus may use eval().
2
In fact his sole purpose is to evaluate questionable code.
2
`questionable' could be in either or both of the following senses
2
2
(1) Its origin is sufficiently uncertain so that there is no obvious way of deciding whose permissions it should run under.
2
(2) The code itself is potentially malicious, i.e., to the extent that one does not want to be evaluating it using one's own permissions.
2
2
set_task_perms($no_one); is thus the canonical idiom in wizard code for rendering anything that follows mostly harmless. For use by ordinary programmers, we have:
2
2
$no_one:eval(string)
2
2
which attempts to evaluate an arbitrary string using $no_one's permissions.
2
string is either an expression or ";" followed by one or more statements, of which the final semicolon may be omitted. return values are what eval() would return (either {1,value} or {0,@error_messages}).
38
5
4
19
2
Exits
2
-----
2
An exit can be renamed by either the owner of the exit or the owner of its source.
2
2
The standard verbs that are called in exit movement are:
2
2
:move(object) - moves the object via this exit
2
:invoke() - equivalent to :move(player)
2
2
When an exit is invoked on a particular object (via exit:move(object)), the following occurs.
2
2
(1) The exit may be locked against the object, in which case we print the
2
nogo messages and quit.
2
2
(2) (room=exit.dest):bless_for_entry(object) is called. Assuming that exit is recognized by room as being a legitimate entrance (i.e., is in room.entrances), this will enable room:accept(object) to return true.
2
2
(3) object:moveto(room) is called and the various messages (see `help exit-messages') are :announced/:told. Note that this, in accordance with the way the builtin move() (and hence the default :moveto()) works, we get a call to room:accept(object) which checks for the room itself being locked against the object, and otherwise returns true if the blessing in the previous step worked. The move is performed, here:exitfunc(object) and room:enterfunc(object) are called. In particular, room:enterfunc clears the blessing bestowed in (2) now that it is no longer needed.
2
2
In general, the move may fail, in which case we :announce the (o)nogo_msgs.
38
5
4
69
2
The Generic Room ($room)
2
----------------
2
2
(1) Announcements
2
2
:announce (@text) => broadcasts to all except player
2
:announce_all (@text) => broadcasts to all
2
:announce_all_but (objects,@text) => broadcasts to all except those in objects
2
2
say, emote
2
2
2
(2) Command recovery
2
2
:huh (verb,args) - server hook: last chance to make sense of verb
2
:here_huh (verb,args) - room's last attempt to parse something
2
:here_explain_syntax (this,verb,args) - attempts to explain usage of verb
2
2
2
(3) Residency
2
2
free_home - true => @sethome allows anyone to set his .home to be here
2
residents - objects on this list may teleport in and/or set their homes here.
2
2
:accept_for_abode(player)
2
=> true iff player should be allowed to set .home to this room.
2
2
@resident*s
2
2
2
(4) Looking
2
2
dark - true => contents are not visible
2
ctype - 1..4 for four different styles of .contents lists
2
2
:match (string) => exit or object in room's .contents
2
:tell_contents (objects,ctype) - format objects according to ctype, tell player
2
2
l*ook
2
2
2
(5) Topology and Movement via Exits
2
2
See `help $exit' for an explanation of how the generic $exit works.
2
2
free_entry - true => `teleporting' in is allowed
2
false => only residents may teleport in
2
exits - list of invokable exits leading from this room
2
entrances - list of recognized exits leading to this room
2
blessed_object - object currently entering via an exit
2
blessed_task - task_id for entering object
2
2
:match_exit (string) => exit whose name matches string
2
:bless_for_entry (object) - set up room to accept object arriving from entrance
This holds a collection of {string key, datum} pairs, where datum can be anything. At most one datum may be associated with any given string. Data may be anything (lists, strings, numbers, objectids). If you like, you can think of this as an array indexed by strings.
2
Verbs supplied include
2
2
:find(string) => datum, $ambiguous_match or $failed_match
2
:find_key(string) => full string key, $ambiguous_match or $failed_match
2
:find_exact(string) => datum or $failed_match (no partial matches)
2
:find_all(string) => list of all data corresponding to matching strings
2
:find_all_keys(string) => list of all matching strings
2
2
:insert(string,datum)
2
if the string is already present in the db,
2
changes the associated datum and returns {old_datum};
2
otherwise enters a new {string,datum} pair and return 0.
2
:delete(string)
2
if there is a datum associated with string,
2
remove this association and return {datum}; otherwise return 0.
2
:delete2(string,datum)
2
if the given datum is associated with string,
2
removes that association and return {datum},
2
if some other datum is associated with string, just return {other datum}
2
otherwise return 0.
2
:clearall([4|3])
2
removes all associations from the database.
2
optional argument changes the type of the database
2
(4 is normal, 3 is a kludge for when the data are simply boolean flags
2
i.e., this is a set of strings rather than a string-indexed array;
2
more on this below)
2
2
count [entries|chars] in this
2
provide some vague statistics about how big this thing is.
2
2
N.B. As entries get made, properties belonging to $generic_db.owner will be created on the db object itself. These properties will be created having flags as specified by .node_perms, which by default is "r", but can be changed to "" should you want to ensure that randoms don't have access to the raw information.
2
2
Implementation notes
2
- - - - - - - - - -
2
The representation is as a `trie', a tree in which each internal node corresponds to a prefix shared by two or more strings in the db.
2
Each internal node is kept in a property named " "+<prefix>, where <prefix> is a prefix shared by all strings in the subtree under this node.
2
The property value is a 4 element list
2
2
this.(" "+<prefix>)[1] = <common>
2
maximal continuation shared by all strings beginning with prefix
2
i.e., all these names actually begin with <prefix>+<common>
2
2
this.(" "+<prefix>)[2] = <continuations>
2
string of all characters <c> that can follow <prefix>+<common> for which
2
there is more than one string in the db beginning with <prefix>+<common>+<c>
2
2
this.(" "+<prefix>)[3] = <exact_matches>
2
list of all strings in this subtree for which
2
the character (or lack thereof) following the <prefix>+<common> substring
2
suffices to determine the string.
2
2
this.(" "+<prefix>)[4] = <data>
2
list of data corresponding to the strings in [3].
2
2
Child nodes are this.(" "+<prefix>+<common>+<c>)
2
for all <c> in this.(" "+<prefix>)[2].
2
The root node is this.(" ").
2
If, e.g., there are 2 or more strings in the db beginning with a,
2
there will be a node this.(" a").
2
If all of these strings actually begin with "ani", then this.(" a")[1]=="ni".
In some cases one may merely wish to hold a collection of strings without trying to associate a particular datum with each string. One may then instead set up a db without the fourth field on each of the properties. In this case the datum is taken to be the found string itself and that is what gets returned by :find*() in the event of a successful search. :find and :find_key are then equivalent as are :find_all and :find_all_keys. To setup the db this way, do a :clearall(3). :clearall(4) reverts to the above described type of db with a separately kept datum. Note that you can't change the type without emptying the db. 3 and 4 are currently the only db types allowed.
38
5
4
201
2
The Generic Editor enables a player to edit a list of strings. While one might contrive to use it directly, it is rather intended as a parent for some actual editor. It supplies the following commands:
$editor_help.ranges descrbes range specifications (<range>)
2
2
You'll notice that nowhere does it say how to load in a given list of strings or how and where one may save said list away when one is done editing. These commands are supplied by the child editor object. The generic editor contains only the code for editing lines, though it defines additional functions for use by the children:
2
2
:loaded(player)
2
returns the index (player in this.active) iff text has been loaded
2
from somewhere, otherwise returns 0.
2
2
Note that, by default, there is a difference between
2
2
having nothing loaded (:text(who)==0) and
2
having loaded something with no text (:text(who)=={}).
2
2
If you don't care about this distinction in a particular case,
2
just do (player in this.active) instead of this:loaded(player).
2
If you don't want your editor to make this distinction at all, do
2
2
@stateprop texts={} for <youreditor>
2
2
which changes the initial value of :text() to {}
2
2
In all functions below, 'who' is the index returned by :loaded(player)
2
2
BTW, be careful about using 'player' in non-user (i.e., +x this-none-this) verbs --- much better to have the user verb get the index with :loaded() and then pass that around.
2
2
Also be careful about suspend() and verbs that call suspend(). In particular, the player's index in the .active list can change during the suspend interval, so you must be sure to obtain the index (e.g., using :loaded()) again after the suspend() returns.
2
2
For your non-user verbs, we have
2
2
:ok(who)
2
returns E_PERM if the caller is not an editor verb and E_RANGE
2
if 'who' does not point to a valid session.
2
2
which should take care of the more egregious security holes (but maybe not the less egregious ones). For getting and loading text, we have
2
2
:text(who)
2
the current text string list or 0 if nothing loaded yet.
2
:load(who,text)
2
loads the given list of strings as the text to be edited.
2
this also resets the 'changed' flag and pushes the insertion
2
point to the end.
2
2
and various flags and properties (all of the set_* routines return E_PERM when not called from an editor verb, E_RANGE if who is out of bounds, E_INVARG if something is wrong with the 2nd arg, or the new value, which may not necessarily be the same as the 2nd arg (e.g., set_insertion(..,37) on a 5 line text buffer returns 6).
2
2
:changed(who)
2
has the text been altered since the last save/load?
2
(the child editor gets to define what "save" means).
2
:set_changed(who,value)
2
Any child editor command that is considered to save the text should do a
2
:set_changed(who,0).
2
Note that if the changed flag is 0, the session will be flushed when
2
the player leaves the editor, so you may also want certain commands to
2
do set_changed(who,1)...
2
2
:origin(who)
2
room where the player came from.
2
:set_origin(who,room)
2
can be used to change the room the player will return to when finished
2
editing. Since origin gets set even in cases where the player teleports
2
into the editor you probably won't usually need to do this.
2
2
:insertion(who)
2
current insertion point.
2
:set_insertion(who,linenumber)
2
linenumber needs to be a positive integer and will get
2
2
:readable(who)
2
whether the current editing session has been made globally readable.
2
:set_readable(who,boolean)
2
change the readability of the current editing session.
2
This is used by the publish/perish verbs.
2
2
We also provide
2
2
:invoke(...)
2
If the player has a previous unsaved (i.e., :changed()!=0)
2
session, we return to it, moving the player to the editor.
2
If the player is already in the editor, this has no effect other
2
than to print a few nasty messages. In any case a :changed()
2
session must be aborted or set_changed(,0) before anything else
2
can be started
2
2
Otherwise, we pass the arguments (which are assumed to be the
2
result of some munging of the command line) to :parse_invoke(),
2
move the player to the editor and load whatever parse_invoke()
2
specified. The only interpretation the generic editor makes on
2
the arguments is that if the boolean value of the first is true,
2
this indicates that the player wanted to load something as
2
opposed to resume a previous session. Usually a command calling
2
:invoke will have a true (i.e., nonzero number, nonempty list or
2
string) first arg iff the command line is nonempty, in which case
2
'args' works fine for this purpose.
2
2
If the command parses sucessfully (:parse_invoke() returns a list),
2
we move the player to the editor if necessary and then call
2
:init_session() to set things up.
2
2
The child editor is assumed to provide
2
2
:parse_invoke(...)
2
given :invoke()'s arguments, determines what the player wants to edit.
2
It either returns 0 and reports syntax errors to player,
2
or it returns some list that :init_session() will understand.
2
2
:init_session(who,@spec)
2
where spec is something that was returned by :parse_invoke().
2
Loads the text and sets the stateprops (below) to indicate that
2
we are working on whatever it is we're suppose to be working on.
2
2
:working_on(who)
2
returns a string X as in "You are working on X."
2
This is called by the 'w*hat' command, among other things.
2
2
Child editors may have their own properties giving state information for the various editing sessions. The value of each such property will be a list giving a value for each player in the editor. For each such property, you should, once the editor object has been created, initialize the property to {} and do one of
2
2
@stateprop <propname> for <editor>
2
@stateprop <propname>=<default-value> for <editor>
2
(0 is the default <default-value>)
2
2
Henceforth, adding and deleting new editing sessions will amend the list held by the given property. The value of the property for a given session can be obtained via this.<propname>[player in this.active] and can be changed with a corresponding listset() call. The usual idiom for an editor command is
2
2
if(!(who=this:loaded(player)))
2
player:tell(nothing_loaded_msg());
2
else
2
... various references to this.<propname>[who] ...
2
endif
2
2
To remove such a property from the list of such state properties:
2
2
@rmstateprop <propname> from <editor>
2
2
Note that you can only do this with properties defined on the child editor itself.
2
2
Sometimes you may wish to @stateprop a new property on an editor where active editing sessions exist. @stateprop will fail if the property in question does not hold a list of the correct length (== length(editor.active); one value for each editing session). You need to either give the @flush command to clear out all sessions and boot all players currently in the editor or somehow manually initialize the property to a list of appropriate values and pray that nobody enters/exits the editor between the property initialization and the @stateprop command --- this problem can be avoided by doing an eval() that does all of the initializations (beware of suspends()) and calls :set_stateprops directly.
2
2
Incidentally, the @flush command may be used at any time to clean out the editor or to remove all sessions older than a given date.
2
2
There are also numerous _msg properties that may be customized
2
2
@depart announced at the origin when :invoke() is called.
2
@return announced at the origin the player is returned there.
2
@nothing_loaded printed when user attempts editing
2
before anything has been loaded.
2
@no_text response to 'list' when :text()=={}
2
@no_change printed by 'what' when :changed()==0
2
@change printed by 'what' when :changed()==1
2
@no_littering printed upon leaving the editor with :changed()==1.
2
@previous_session printed by :invoke() when player tries to start a
2
new session without aborting or saving the old one
2
2
The general procedure for creating a child editor:
2
2
. @create $generic_editor named <editor>
2
2
. define additional <editor> verbs/properties
2
At the very least you need 'edit' and 'save' commands.
2
Usually you can get away with just having 'edit' call :invoke();
2
Presumably, you'll need at least a command to load text from somewhere
2
as well as a command to save it back out.
2
2
. define a verb (somewhere) to invoke the editor
2
This could be just a one-liner that calls <editor>:invoke(args,verb).
2
Either that or
2
. you have to set up an exit somewhere whose destination is <editor>
2
. you have to advertise the object number so that people can
2
teleport to it.
2
2
. @stateprop x for <editor>
2
2
. if you want the 'abort' command to boot the player from the editor do
2
<editor>.exit_on_abort = 1;
2
2
. set <editor>.commands to be the list of additional commands defined
2
by <editor>.
2
Each element of the list is itself a list of the form {name,args}.
2
set <editor>.commands2 to be the list of commands that should appear
2
in the `look' listing, and should be a list of strings appearing
2
as names in .commands on either <editor> or some editor ancestor.
2
look at $verb_editor or $note_editor for an example.
2
2
. If you want to have help text for new verbs you define, create a child of
2
$generic_help and add properties to this object for each of the topics
2
that you want to provide help text.
2
Finally, set <editor>.help = {this object} so that the help system
2
knows to consult this object.
38
5
4
76
2
The Help System
2
---------------
2
When a player types help, the following list of objects is consulted for .help properties: the player itself, all ancestors of player up to and including $player, and, if the current location is a room, the current location together with all ancestors of the current location back to and including $room. Each help property should have as value either an object or a list of objects (otherwise we just ignore it). These objects are then strung together as a list of `help databases' to be searched in order for the requested topic.
2
2
A help database (in the sense of anything that is usable by $player:help()) is any object having the following three verbs:
2
2
:find_topics([string])
2
where string is a supposed help topic, returns a list of strings,
2
i.e., actual help topics that this db knows about, or some boolean
2
false value in the event that this db is clueless...
2
If no arguments are given, this should return a list of all topics
2
in the db
2
2
:get_topic(string)
2
given one of the strings returned by :find_topics this either
2
returns a list of strings (text to be spewed to the player) or
2
returns 1 to indicate that it has already taken care of printing
2
information to the player.
2
2
:dump_topic(string)
2
like get_topic, but instead returns the raw text of a help topic
2
as a (download/upload) script
2
2
In short if :find_topic reports that a particular db knows about a given topic
2
it returns the full topic name, so that :get_topic may be called on it later.
2
:dump_topic is used by maintainers (see $wiz:@gethelp) to edit help topics.
2
2
$generic_help and $help
2
-----------------------
2
The Generic Help Database, $generic_help, is the parent class of a particular kind of help database of which $help is an instance. On help databases of this type, every help topic has a corresponding property, interpreted as follows:
2
2
this.(topic) = string
2
one-line help text.
2
2
this.(topic) = {"*<verb>*",@args}
2
call this:<verb>(args,dblist) to get text where dblist is the list of
2
help objects that would have been consulted had the topic not been found
2
on this object.
2
2
this.(topic) = other list of strings
2
multi-line help text
2
2
For the {"*<verb>*",...} form, the current verbs available are
2
2
{"*forward*", topic, @rest}
2
- get help text for topic and then append the lines of `rest'.
2
rest may, in turn, begin with a "*<verb>*"...
2
2
{"*pass*", topic, @rest}
2
- get help text for topic from the first help database after this one
2
that actually has help text for topic, and then append lines of `rest'.
2
As with "*forward*" rest may, in turn, begin with a "*<verb>*"...
2
2
{"*subst*", @lines}
2
- All occurences of %[exp] in lines are replaced with the value of exp
2
which is assumed to evaluate to a string.
2
All lines beginning with %;exp are replaced with the value of exp
2
which is assumed to evaluate to a list of strings.
2
Evaluation is done using $no_one's permissions so exp in either case
2
can only refer to public information.
2
2
{"*index*", title}
2
- returns a list of all topics in this database, arranged in columns.
2
title is used as a heading for this index.
2
2
Individual help dbs are free to define additional verbs that may be used in this context. $help itself defines the following additional such verbs:
2
2
{"*index_list*"}
2
- returns a list of all index topics in all databases in the search list.
2
An index topic is one whose actual text is {"*index*", something}.
2
When creating a help db, you should be sure to make an index topic.
2
2
{"*full_index*"}
2
- prints indices for all help databases in the search list.
2
2
It should be noted (once again) that help databases need not be children of $generic_help, so long as they have :find_topics/:get_topic/:dump_topic working as specified above.
38
5
4
62
2
Generic Option Package
2
----------------------
2
It occasionally happens that one has a command or set of commands for which one wishes to provide several options/flags that a player can set to customize the command's behavior for him/herself. Making each option a separate property is a bit expensive, especially when the option in question is merely a boolean flag that gets set to false in most cases. This package provides an alternative, as well as providing a uniform set of commands for setting these flags/options and checking that the values given are of appropriate types.
2
2
Instead of needing several properties, only one is required to store a list containing values for all of the options. An "option package" (pkg, below) is then an object of this class, which provides routines for manipulating such lists.
2
2
The set of option names is divided into a set of "real" options, those whose names will actually appear in a given list, and "extras" which are either synonyms for or represent combinations of real options.
2
2
pkg:add_name(name) adds name to .names (remove it from .extras if there)
2
pkg:add_name(name,1) adds name to .extras (remove it from .names if there)
By default, a given option can only be a boolean flag, having one of the values 0 (absent from the list), or 1 (present in the list). :set translates 0/""/{} to 0 and any other non-object value to 1.
2
2
One may however designate a wider range of possible values for an option "foo" by either installing one of
2
2
pkg.type_foo
2
-- list of allowed types,
2
e.g., {NUM,STR} => must be a number or a string
2
e.g., {OBJ,{OBJ}} => must be an object or a list of objects
2
for anything fancier use:
2
2
pkg:check_foo(value)
2
=> string error message or {value munged as desired}
2
2
In general, the only restriction on option values is that 0 is the only false value; setting an option to "" or {} sets it to 0. Every option defaults to 0, and no matter what you install as .type_foo or :check_foo(), 0 will always be a legal value for option "foo".
2
2
When presented with an option that is in .extras, :set will typecheck the value as described, however, then :actual(name, value) will be called to obtain a list of {name-of-real-option, value} pairs indicating which combination of real options should be set.
2
2
Other verbs
2
pkg:parse(args,...)
2
parses the command line arguments of a @whatever_option command
2
=> {optionname, value} if the player wants to set an option
2
=> {optionname} if the player wants to view an option
2
=> string error message otherwise
2
2
one may install pkg:parse_foo to parse arguments for option "foo"
foo is word1 word2 => pkg:parse_foo("foo",{"word1","word2"})
2
2
pkg:show(options,name|list of names)
2
=> list of strings describing the current value of the named option(s).
2
calls pkg:show_foo(options,list of names) or
2
refers to pkg.show_foo
2
to describe option "foo"
2
2
(see sources for details... at some point I'll finish writing this... --Rog)
38
5
4
24
2
Message Sequences
2
-----------------
2
A "message sequence" is a handle by which one may refer to a particular subset of a mail recipient's (player or $mail_recipient-descendant) saved messages. Routines like rcpt:display_seq_headers or rcpt:display_seq_full need to be supplied with message-sequence arguments to deterimine which headers or full-messages to display.
2
2
Message sequences can in turn be obtained from routines like rcpt:parse_message_seq, which takes a command-line description of a message sequence on that particular recipient and returns the corresponding message sequence handle.
2
2
The actual form of a message sequence (though you shouldn't actually need to make use of this) is that of a set of integers in the format used by $seq_utils (see `help $seq_utils'). It should however be noted that these integers are *not* themselves message numbers, but rather indices into the list of saved messages. For example, if a particular recipient holds 5 messages numbered 1,3,5,7,9. Then the message sequence handle representing messages 3,5,7 collectively, would be {2,5} which is $seq_utils-ese for the range 2..4, namely the second, third and fourth messages saved on that recipient.
2
2
The following verbs are available for obtaining indices to use in message sequences
2
2
:length_all_msgs() => total number of messages, or equivalently,
2
=> index of last message
2
:length_num_le(n) => number of messages numbered <= n, or equivalently,
2
=> index of highest numbered message <= n
2
:exists_num_eq(n) => 0 unless there exists a message numbered n in which
2
case we return the index of that message.
2
:length_date_le(date) => number of messages dated <= date, or equivalently,
2
=> index of most recent message dated <= date
2
2
:length_date_gt(date) => number of messages dated > date
2
2
Note that r:length_date_gt(date) == r:length_all_msgs()-r:length_date_le(date).
2
The only reason :length_date_gt is provided as a separate routine is in order
2
to do quick checks for the existence of new mail (as @rn needs to do).
38
5
4
24
2
Read verbs
2
----------
2
The following verbs may be used to extract headers/messages from readable mail recipients/players;
2
2
:display_seq_headers (message sequence, current message number, last_read_date)
2
Does a @mail listing of the given message sequence. If current message
2
number is given and the sequence includes it, we mark it with a `>'.
2
Likewise if the sequence includes any new messages (i.e., dated after
2
last_read_date), these are also indicated as such.
2
2
display_seq_full (message sequence, preamble)
2
Does a @read listing of the given message sequence. Each message is preceded
2
by preamble.
2
=> {new current message number, new last_read_date}
2
2
:messages_in_seq (index)
2
=> {n, msg}
2
:messages_in_seq (message sequence)
2
=> {{n_1,msg_1},{n_2,msg_2},...}
2
where the n_i are message numbers and the msg_i are messages in transmission
2
format (see `help mail-format')
2
2
:list_rmm ()
2
Does an `@unrmm list' listing of messages in .messages_going
38
5
4
17
2
Write verbs
2
-----------
2
The following verbs can be used to manipulate writable mail recipients/players:
2
2
:rm_message_seq (message sequence)
2
Does an @rmmail. Messages in message sequence are removed from this
2
recipient's saved .messages and written to .messages_going.
2
2
:undo_rmm ()
2
Does an @unrmm. Messages in .messages_going are copied back to .messages.
2
2
:expunge_rmm ()
2
Does an @unrmm expunge. Blows away .messages_going.
2
2
:renumber ()
2
Does a @renumber.
2
38
5
4
25
2
Search verbs
2
------------
2
The following verbs can be used on a readable mail-recipient/player to search for messages with fields matching a given pattern.
2
2
from_msg_seq (objectid or list [,mask])
2
=> message sequence: messages from (one of) the given objectid(s)
2
2
%from_msg_seq (string or list [,mask])
2
=> message sequence: messages with (one of) the given string(s)
2
in the From: line
2
2
to_msg_seq (objectid or list [,mask])
2
=> message sequence: messages to (one of) the given objectid(s)
2
2
%to_msg_seq (string or list [,mask])
2
=> message sequence: messages with (one of) the given string(s)
2
in the To: line
2
2
subject_msg_seq (string [,mask])
2
=> message sequence: messages with given string occurring in Subject:
2
2
body_msg_seq (string [,mask])
2
=> message sequence: messages with given string occurring in body of message
2
2
In all cases `mask' is a message sequence which one may supply to limit the range of the search. One way of looking at it is that the message sequence to be returned is first intersected with mask.
38
5
4
43
2
The housekeeper is an object that can help keep other objects where they belong. New MOOs may want to add their own user interface for the housekeeper; here is some information that may be helpful.
2
2
To indicate what objects should be cleaned:
2
2
:add_cleanup(object[, requestor[, where]])
2
Ask the housekeeper to clean 'object' for 'requestor' to 'where'.
2
Requestor defaults to 'player'.
2
Where defaults to object.location.
2
2
:remove_cleanup(what[, requestor])
2
Remove 'what' from the cleanup list at 'requestor's request.
2
Will remove it only if 'requestor' made the original request and owns
2
the object or the destination.
2
2
To actually get the housekeeper to clean stuff up:
2
2
:cleanup([insist])
2
Clean up player's objects. Argument is 'up' or 'up!' for manually
2
requested cleanups. 'up!' means to clean things even if it's against
2
the housekeeper's better judgement.
2
2
:replace(object[, insist])
2
Clean up the indicated object. 'insist' is as in :cleanup.
2
2
:continuous()
2
Starts the housekeeper cleaning continuously, killing any previous
2
continuous task. This should be called only when starting up a new MOO,
2
or if something has gone wrong, as normally it will just keep going
2
without any help.
2
2
:litterbug()
2
Clean up all the places in housekeeper.public_places by getting rid of
2
all contents not in their .residents lists. This is called by
2
:continuous, so it doesn't need to be called directly.
2
2
To find out what's being cleaned to where for whom:
2
2
:cleanup_list([whom])
2
Show 'player' the personal cleanup list for 'whom', or the housekeeper's
2
complete list if no argument is given.
2
2
:clean_status()
2
Show 'player' a brief summary of eir personal cleanup list.
38
5
4
28
2
$recycler
2
=========
2
2
Rather than having the server built-in recycle() and create() functions handle the creation and destruction of objects, a recycling center has been created to simulate these actions by changing objects that would have been recycled into children of $garbage (The Generic Garbage Object) and making them owned by Hacker, and then when they're needed again, to avoid a raw create() command, those objects are given to whoever's asking for them.
2
2
Most Useful Verbs
2
-----------------
2
2
$recycler:_recycle( object )
2
This will effectively recycle an object. (As a point of fact, it changes ownership of the object to Hacker and makes the object a child of $garbage.) It handles .ownership_quota and .owned_objects properly. Generally, use this instead of a recycle() in your verbs.
2
2
$recycler:_create( parent object [ , new owner object ] )
2
This effectively creates an object (with the specified parent, if possible, and with the specified owner, if possible; these are the same restrictions as on the server create() builtin). This is what should generally be used instead of create() in your programming.
2
2
$recycler:valid ( object )
2
This is a variant of the server built-in valid() except that it handles the $garbage objects as well. It returns a 1 if the object specified -is- valid and is -not- a $garbage object.
2
2
Other Notes
2
-----------
2
2
request <object> from <recycler>
2
This is not an internal verb (it's !x). It is, however, a command-line verb that can be used to request a specific object from the recycler. It's also useful for the creation of objects like a Magic Number Repository. When the object is removed from the recycler, the .announce_removal_msg is announced to the room if it's set (it's piped through $string_utils for pronoun substitution).
2
2
show-history <recycler>
2
This is a wizardly verb which allows wizards to check the `history list' of the recycler. The history maintains the latest ($recycler.nhist) entries.
2
2
$recycler.orphans
2
This maintains a list of objects for which the recreation process got mangled. It ought to be checked every once in a while to see what's up.
2
1
4
10
2
$error
2
======
2
2
The Error Generator, $error, may be used to automatically generate errors. This is particularly useful if you are working in a !d verb but have occasion to -want- to crash with traceback. To raise a specific error, use $error:raise(error type) -- for example, $error:raise(E_PERM) will produce traceback resulting from a Permission Denied error.
2
2
Random notes about $error:
2
2
+ The complete list of errors is stored in $error.names.
2
+ The seemingly useless :accept() verb on $error is so that $error:E_RECMOVE and $error:E_NACC will be guaranteed success (success meaning, of course, a termination by traceback).
2
+ There is, unfortunately, no way to raise the error E_NONE.
2
1
4
72
2
Generic BigList Utilities
2
----------------------------
2
$biglist is a collection of routines for maintaining huge persistent (sorted) lists in a format that is less likely to spam the server (which runs into a certain amount of trouble dealing with long ordinary lists --- btw we use `biglist' to refer to the huge data structure we're about to describe and `list' to refer to ordinary MOO lists {...}). The biglist in question lives on a particular object, to which we will refer in the discussion below as the `home' object, and its various elements appear as leaves of a tree whose nodes are kept in properties of the home object. It should be noted that the home object does not need to be (and in fact should *not* be) a descendant of $biglist one; $biglist merely provides utilities for manipulating the properties on the home object that are used in a particular biglist manipulation.
2
2
All of the utilities below refer to `caller' to locate the home object. Thus verbs to manipulate a given biglist must be located on or inherited by its home object itself. The home object needs to define the following verbs
2
2
:_make(@args) => new property on home object with value args
2
:_kill(prop) delete a given property that was created by :_make
2
:_get(prop) => home.prop
2
:_put(prop,@args) set home.prop = args
2
:_ord(element) given something that is of the form of a biglist element
2
return the corresponding ordinal (for sorting purposes).
2
If you never intend to use :find_ord, then this can be a
2
routine that always returns 0 or some other random value.
2
2
See $generic_biglist_home or $big_mail_recipient for examples.
2
2
Those of the following routines that take a biglist argument are expecting
2
either {} (empty biglist) or some biglist returned by one of the other routines
2
2
:length(biglist) => length(biglist) (i.e., number of elements)
2
:find_nth(biglist,n) => biglist[n]
2
:find_ord(biglist,k,comp) => n where n is
2
the largest such that home:(comp)(k,home:_ord(biglist[n])) is false, or
2
the smallest such that home:(comp)(k,home:_ord(biglist[n+1])) is true.
2
Always returns a value between 0 and length(biglist) inclusive.
2
This assumes biglist to be sorted in order of increasing :_ord values
2
with respect to home:(comp)().
2
Standard situation is :_ord returns a number and comp is a < verb.
2
2
:start(biglist,s,e) => {biglist[s..?],@handle} or {}
2
:next(@handle) => {biglist[?+1..??],@newhandle} or {}
2
These two are used for iterating over a range of elements of a biglist
2
The canonical incantation for doing
2
for elt in (biglist[first..last])
2
...
2
endfor
2
is
2
handle = :start(biglist,first,last);
2
while(handle)
2
for elt in (handle[1])
2
...
2
endfor
2
handle = :next(@listdelete(handle,1));
2
endwhile
2
2
The following all destructively modify their biglist argument(s) L (and M).
like extract_range only we destroy what we don't want.
2
2
:insertlast(L,value) => {@L,value}
2
inserts a new element at the end of biglist.
2
If find_ord is to continue to work properly, it is assumed that the
2
home:_ord(elt) is greater (comp-wise) than all of the :_ord values
2
of elements currently in the biglist.
2
2
:kill(L[,leafkiller])
2
destroys all nodes used by biglist.
2
Calls home:leafkiller on each element.
38
1
5
38
5
5
38
4
4
1
2
Core Utility Help
38
5
2
Help database for LambdaCore utility objects and generics.
38
5
4
2
0
82928
0
743668552
2
1
#24
Programmer Help
16
2
-1
-1
-1
32
-1
23
2
errors
2
173
-1
prepositions
2
165
-1
51
@check-property
@check-chparent
@egrep
regular-expressions
@show
@grep
prog-index
help
prepositions
;
utilities
truth
tasks
statements
programming
precedence
language
functions
expressions
eval
errors
@verb
@setenv
@rmverb
@rmproperty
@prospectus
@property
@program
@list
@kill
@kids
@forked
@edit
@display
@dbsize
@copy
@chparent
@chmod
@args
.program
@clearproperty
@disown
@disinherit
@displayoptions
@display-options
@add-feature
@remove-feature
features
examine
mail
#
56
4
2
2
*forward*
2
@check-chparent
2
5
4
10
2
Syntax: @check-property <object>.<propname>
2
@check-chparent <object> to <newparent>
2
2
You cannot add a new property to an object if an ancestor or a descendant already defines a property with the same name. @check-property will give you the list of all descendants of <object> that that define .<propname>.
2
2
Likewise you cannot chparent an object to a new parent if the new parent has a property that is also defined on the object or some descendant. Use @check-chparent to find out all instances of conflicting properties that would interfere with @chparent in this manner.
2
2
Note that @check-property requires either that you own the object or that it be writeable, the same conditions that need to hold if you are to create new properties on the object. Similarly, @check-chparent requires that you own the object and that the new parent is either fertile or likewise owned by you.
2
2
For objects with large numbers of descendants, these commands can be time-consuming.
2
5
4
2
2
*forward*
2
@grep
2
5
4
162
2
Regular expression matching allows you to test whether a string fits into a specific syntactic shape. You can also search a string for a substring that fits a pattern. See also the built-in function match()/rmatch().
2
2
A regular expression describes a set of strings. The simplest case is one that describes a particular string; for example, the string `foo' when regarded as a regular expression matches `foo' and nothing else. Nontrivial regular expressions use certain special constructs so that they can match more than one string. For example, the regular expression `foo%|bar' matches either the string `foo' or the string `bar'; the regular expression `c[ad]*r' matches any of the strings `cr', `car', `cdr', `caar', `cadddar' and all other such strings with any number of `a''s and `d''s.
2
2
Regular expressions have a syntax in which a few characters are special constructs and the rest are "ordinary". An ordinary character is a simple regular expression that matches that character and nothing else. The special characters are `$', `^', `.', `*', `+', `?', `[', `]' and `%'. Any other character appearing in a regular expression is ordinary, unless a `%' precedes it.
2
2
For example, `f' is not a special character, so it is ordinary, and therefore `f' is a regular expression that matches the string `f' and no other string. (It does *not*, for example, match the string `ff'.) Likewise, `o' is a regular expression that matches only `o'.
2
2
Any two regular expressions A and B can be concatenated. The result is a regular expression which matches a string if A matches some amount of the beginning of that string and B matches the rest of the string.
2
2
As a simple example, we can concatenate the regular expressions `f' and `o' to get the regular expression `fo', which matches only the string `fo'. Still trivial.
2
2
The following are the characters and character sequences that have special meaning within regular expressions. Any character not mentioned here is not special; it stands for exactly itself for the purposes of searching and matching.
2
2
`.' is a special character that matches any single character. Using
2
concatenation, we can make regular expressions like `a.b', which matches
2
any three-character string that begins with `a' and ends with `b'.
2
2
`*' is not a construct by itself; it is a suffix that means that the preceding
2
regular expression is to be repeated as many times as possible. In `fo*',
2
the `*' applies to the `o', so `fo*' matches `f' followed by any number of
2
`o''s.
2
2
The case of zero `o''s is allowed: `fo*' does match `f'.
2
2
`*' always applies to the *smallest* possible preceding expression. Thus,
2
`fo*' has a repeating `o', not a repeating `fo'.
2
2
The matcher processes a `*' construct by matching, immediately, as many
2
repetitions as can be found. Then it continues with the rest of the
2
pattern. If that fails, it backtracks, discarding some of the matches of
2
the `*''d construct in case that makes it possible to match the rest of
2
the pattern. For example, matching `c[ad]*ar' against the string
2
`caddaar', the `[ad]*' first matches `addaa', but this does not allow the
2
next `a' in the pattern to match. So the last of the matches of `[ad]' is
2
undone and the following `a' is tried again. Now it succeeds.
2
2
`+' is like `*' except that at least one match for the preceding pattern is
2
required for `+'. Thus, `c[ad]+r' does not match `cr' but does match
2
anything else that `c[ad]*r' would match.
2
2
`?' is like `*' except that it allows either zero or one match for the
2
preceding pattern. Thus, `c[ad]?r' matches `cr' or `car' or `cdr', and
2
nothing else.
2
2
`[ ... ]'
2
`[' begins a "character set", which is terminated by a `]'. In the
2
simplest case, the characters between the two brackets form the set.
2
Thus, `[ad]' matches either `a' or `d', and `[ad]*' matches any string of
2
`a''s and `d''s (including the empty string), from which it follows that
2
`c[ad]*r' matches `car', etc.
2
2
Character ranges can also be included in a character set, by writing two
2
characters with a `-' between them. Thus, `[a-z]' matches any lower-case
2
letter. Ranges may be intermixed freely with individual characters, as in
2
`[a-z$%.]', which matches any lower case letter or `$', `%' or period.
2
2
Note that the usual special characters are not special any more inside a
2
character set. A completely different set of special characters exists
2
inside character sets: `]', `-' and `^'.
2
2
To include a `]' in a character set, you must make it the first character.
2
For example, `[]a]' matches `]' or `a'. To include a `-', you must use it
2
in a context where it cannot possibly indicate a range: that is, as the
2
first character, or immediately after a range.
2
2
`[^ ... ]'
2
`[^' begins a "complement character set", which matches any character
2
except the ones specified. Thus, `[^a-z0-9A-Z]' matches all characters
2
*except* letters and digits.
2
2
`^' is not special in a character set unless it is the first character.
2
The character following the `^' is treated as if it were first (it may be
2
a `-' or a `]').
2
2
`^' is a special character that matches the empty string -- but only if at the
2
beginning of the string being matched. Otherwise it fails to match
2
anything. Thus, `^foo' matches a `foo' which occurs at the beginning of
2
the string.
2
2
`$' is similar to `^' but matches only at the *end* of the string. Thus,
2
`xx*$' matches a string of one or more `x''s at the end of the string.
2
2
`%' has two functions: it quotes the above special characters (including `%'),
2
and it introduces additional special constructs.
2
2
Because `%' quotes special characters, `%$' is a regular expression that
2
matches only `$', and `%[' is a regular expression that matches only `[',
2
and so on.
2
2
For the most part, `%' followed by any character matches only that
2
character. However, there are several exceptions: characters that, when
2
preceded by `%', are special constructs. Such characters are always
2
ordinary when encountered on their own.
2
2
No new special characters will ever be defined. All extensions to the
2
regular expression syntax are made by defining new two-character
2
constructs that begin with `%'.
2
2
`%|' specifies an alternative. Two regular expressions A and B with `%|' in
2
between form an expression that matches anything that either A or B will
2
match.
2
2
Thus, `foo%|bar' matches either `foo' or `bar' but no other string.
2
2
`%|' applies to the largest possible surrounding expressions. Only a
2
surrounding `%( ... %)' grouping can limit the grouping power of `%|'.
2
2
Full backtracking capability exists for when multiple `%|''s are used.
2
2
`%( ... %)'
2
is a grouping construct that serves three purposes:
2
2
1. To enclose a set of `%|' alternatives for other operations. Thus,
2
`%(foo%|bar%)x' matches either `foox' or `barx'.
2
2
2. To enclose a complicated expression for a following `*', `+', or `?'
2
to operate on. Thus, `ba%(na%)*' matches `bananana', etc., with any
2
number of `na''s, including none.
2
2
3. To mark a matched substring for future reference.
2
2
This last application is not a consequence of the idea of a parenthetical
2
grouping; it is a separate feature that happens to be assigned as a second
2
meaning to the same `%( ... %)' construct because there is no conflict in
2
practice between the two meanings. Here is an explanation of this
2
feature:
2
2
`%DIGIT'
2
After the end of a `%( ... %)' construct, the matcher remembers the
2
beginning and end of the text matched by that construct. Then, later on
2
in the regular expression, you can use `%' followed by DIGIT to mean
2
"match the same text matched by the DIGIT'th `%( ... %)' construct in the
2
pattern." The `%( ... %)' constructs are numbered in the order that their
2
`%(''s appear in the pattern.
2
2
The strings matching the first nine `%( ... %)' constructs appearing in a
2
regular expression are assigned numbers 1 through 9 in order of their
2
beginnings. `%1' through `%9' may be used to refer to the text matched by
2
the corresponding `%( ... %)' construct.
2
2
For example, `%(.*%)%1' matches any string that is composed of two
2
identical halves. The `%(.*%)' matches the first half, which may be
2
anything, but the `%1' that follows must match the same exact text.
2
2
`%b' matches the empty string, but only if it is at the beginning or end of a
2
word. Thus, `%bfoo%b' matches any occurrence of `foo' as a separate word.
2
`%bball%(s%|%)%b' matches `ball' or `balls' as a separate word.
2
2
For the purposes of this construct and the five that follow, a word is
2
defined to be a sequence of letters and/or digits.
2
2
`%B' matches the empty string, provided it is *not* at the beginning or end of
2
a word.
2
2
`%<' matches the empty string, but only if it is at the beginning of a word.
2
2
`%>' matches the empty string, but only if it is at the end of a word.
2
2
`%w' matches any word-constituent character (i.e., any letter or digit).
2
2
`%W' matches any character that is not a word constituent.
2
5
4
7
2
Syntax: @show <object>
2
@show <object>.<prop-name>
2
@show <object>:<verb-name>
2
2
Displays quite detailed information about an object, property or verb, including its name, owner, permission bits, etc. The information displayed for an object can be quite long.
2
2
See also @display, which displays different information and is controlled differently.
2
5
4
9
2
Syntax: @grep <string> in <object>
2
@grep <string> in {<objectlist>}
2
2
@egrep <regexp> in <object>
2
@egrep <regexp> in {<objectlist>}
2
2
These are named for the corresponding unix utilities.
2
@grep searches the given object(s) for verbs whose verbcode contains the given string as a substring of one of its lines.
2
@egrep searches the given object(s) for verbs whose verbcode contains a substring matching the given regular expression (see `help regular-expressions').
2
5
4
2
2
*index*
2
Programmer Help Topics
2
5
4
15
2
*pass*
2
help
2
2
For programmers, the help system provides the following additional forms:
2
2
help object:verbname -- prints any documentation strings that are present
2
at the beginning of the program for that verb.
2
help $<whatever>_utils -- prints general information about one of the
2
$..._utils objects (e.g., $string_utils,
2
$list_utils, etc...), which are all libraries
2
of generally used verbs.
2
help builtin() -- prints documentation from the programmers manual
2
about the named primitive, for example length()
2
2
For information about how the help system itself works and about how to associate local help databases with specific rooms or player classes, see `help $help'.
2
5
4
3
2
*prepositions*
2
The complete list of prepositions recognized by the command-line parser:
2
2
5
4
2
2
*forward*
2
eval
38
1
4
17
2
The core database has a number of objects serving as libraries of useful verbs.
2
More detailed information can be obtained for (some of) these, via `help $whatever_utils'
2
2
$building_utils --
2
$code_utils -- parsing and manipulating verb code
2
$command_utils -- reporting matching errors to the player
$time_utils -- time (numeric and verbal) manipulation
2
$trig_utils -- trigonometric and other numerical utilities
2
5
4
5
2
Several kinds of statements, expressions, and functions in the MOO programming language use a notion that some MOO values are 'true' and others 'false'.
2
2
The only values that are considered true are non-zero numbers, non-empty strings, and non-empty lists.
2
2
All other values (i.e., 0, "", {}, objects, and errors) are considered false.
38
1
4
17
2
A task is an execution of a MOO program. There are five ways for tasks to be created in LambdaMOO:
2
+ Every time a player types a command, a task is created to execute that command; we call these 'command tasks'.
2
+ Whenever a player connects or disconnects from the MOO, the server starts a task to do whatever processing is necessary, such as printing out 'Munchkin has connected' to all of the players in the same room; these are called 'server tasks'.
2
+ The FORK statement in the programming language creates a task whose execution is delayed for at least some given number of seconds; these are 'forked tasks'.
2
+ The suspend() function suspends the execution of the current task. A snapshot is taken of whole state of the execution, and the execution will be resumed later. These are called `suspended tasks'.
2
+ The read() function also suspends the execution of the current task, in this case waiting for the player to type a line of input. When the line is received, the task resumes with the read() function returning the input line as result. These are called `reading tasks'.
2
2
The last three kinds of tasks above are collectively known as `queued tasks' or `waiting tasks', since they may not run immediately.
2
2
To prevent a maliciously- or incorrectly-written MOO program from running forever and monopolizing the server, limits are placed on the running time of every task. One limit is that no task is allowed to run longer than 15 seconds; this limit is, in practice, never reached. The reason is that there is a second limit on the number of operations a task may execute.
2
2
The server counts down 'ticks' as any task executes. Roughly speaking, it counts one tick for every expression evaluation (other than variables and literals), one for every `if', `fork' or `return' statement, and one for every iteration of a loop. If the count gets all the way down to zero, the task is immediately and unceremoniously aborted. All tasks begin or resume with an store of 30,000 ticks; this is enough for almost all normal uses.
2
2
Because queued tasks may exist for long periods of time before they begin execution, there are commands to list the ones that you own and to kill them before they execute. These commands are covered in the following help topics:
2
2
@forked -- listing the forked tasks that you own
2
@kill -- killing a particular forked task
38
1
4
36
2
The following kinds of statements exist in the MOO programming language:
2
2
;
2
The null statement does nothing.
2
2
expression ;
2
The expression statement evaluates the expression and then discards the value.
2
2
IF ( expression ) statements ENDIF
2
IF ( expression ) statements ELSE statements ENDIF
2
IF ( expression )
2
statements
2
ELSEIF ( expression )
2
statements
2
...
2
ELSE
2
statements
2
ENDIF
2
The conditional statement evaluates each expression in turn and executes the statements associated with the first one to return a true value; the ELSE statements are executed if none of the expressions returns a true value. There can be any number of ELSEIF clauses and the ELSE part is optional. See 'help truth' for the definition of 'true value'.
2
2
FOR name IN ( expression ) statements ENDFOR
2
The list iteration statement first evaluates the expression, which must return a list. It then executes the statements once for each element of that list, each time with the named variable having the value of the corresponding list element.
2
2
FOR name IN [ expression .. expression ] statements ENDFOR
2
The numeric iteration statement first evaluates the two expressions, both of which must return numbers; call those numbers N1 and N2, respectively. The statements are then executed once for each integer I such that N1 <= I <= N2, in increasing order; each time, the named variable has the corresponding value of I.
2
2
WHILE ( expression ) statements ENDWHILE
2
The indefinite iteration statement repeatedly evaluates the expression and, each time it returns a true value, executes the statements. The loop stops the first time that the expression returns a false value. The definitions of 'true' and 'false' values is in 'help truth'.
2
2
RETURN ;
2
RETURN expression ;
2
The return statement evalautes the expression, if any, and returns the resulting value (or 0 if there is no expression) to the verb that called the current one. Execution of the current verb is immediately terminated.
2
2
FORK ( expression ) statements ENDFORK
2
FORK name ( expression ) statements ENDFORK
2
The fork statement first executes the expression, which must return a number; call that number N. It then creates a new MOO task that will, after at least N seconds, execute the statements. When the new task begins, all variables will have the values they had at the time the FORK statement was executed. The task executing the FORK statement immediately continues execution. If a variable name is given after the FORK keyword, then it is assigned the 'queue ID' of the newly-created task. The value of this variable is visible both to the task executing the fork statement and to the statements in the newly-created task. See 'help tasks' for more information about forked tasks.
38
1
4
26
2
MOO contains a rich programming language for the creation of interesting rooms, exits, and other objects. Help is available on the following topics concerning programming in MOO:
2
2
language -- a brief reference for the syntax and semantics of the MOO language
2
tasks -- a brief description of MOO tasks and their resource limits
2
2
@property -- adding a property to an object
2
@rmproperty -- removing a property from an object
2
2
@verb -- adding a verb to an object
2
@rmverb -- removing a verb from an object
2
@args -- changing the syntax of a verb
2
@copy -- copying a verb from one object to another
2
2
.program/@program -- entering the program for a verb
2
@list -- printing a listing of the program for a verb
2
@edit -- editing verb code
2
2
@show -- looking at all the details of an object, a property, or a verb
2
@parents -- listing the ancestors of an object
2
@kids -- listing the children of an object
2
@contents -- listing the contents of an object
2
@chmod -- changing the permissions on an object, a property, or a verb
2
@chparent -- changing the parent of an object
2
@rename -- changing the name of a verb or object
2
2
eval -- executing MOO statements and expressions without writing a verb
38
1
4
17
2
The table below gives the relative precedence of all of the MOO operators; operators on higher lines in the table have higher precedence and those on the same line have identical precedence:
2
2
! - (without a left operand)
2
* / %
2
+-
2
== != < <= > >= in
2
&& ||
2
... ? ... | ... (the conditional expression)
2
=
2
2
Thus, the horrendous expression
2
2
x = a < b && c > d + e * f ? w in y | - q - r
2
2
would be grouped as follows:
2
2
x = (((a < b) && (c > (d + (e * f)))) ? (w in y) | ((- q) - r))
38
1
4
5
2
The MOO programming language is described in excruciating detail in the LambdaMOO Programmer's Manual, available for FTP from parcftp.xerox.com in the file pub/MOO/ProgrammersManual.txt. The online help consists of a few quick reference guides here in the help system under the following topics:
2
2
statements -- the syntax and semantics of the various kinds of MOO statements
2
expressions -- the same for the various kinds of MOO expressions
2
functions -- a list of the primitive functions available to MOO programs
38
1
4
93
2
There are many, many built-in functions available to MOO programmers. The following list gives a brief summary of the arguments and purpose of each function; for more information, see the LambdaMOO Programmer's Manual.
2
2
pass(arg, ...) -- calling a verb defined on this object's parent
2
eval(string) -- parsing and executing strings as MOO code
2
notify(player, string) -- sending text to a player's terminal
2
read() -- reading a line of input from the player (*)
2
output_delimiters(player) -- return {prefix,suffix} set by PREFIX/SUFFIX cmds
2
2
typeof(value) -- determining the data type of a value
2
tostr(value, ...) -- converting any set of values into a string
2
tonum(value) -- converting any non-list value into a number
2
toobj(value) -- converting any non-list value into an object
2
length(value) -- returns the length of a string or list
2
2
listappend(list, value [, index]) -- adding an element at the end of a list
2
listinsert(list, value [, index]) -- adding an element at the head of a list
2
listset(list, value, index) -- updating a list at some index
2
listdelete(list, index) -- removing an element from a list
2
setadd(list, element) -- adding an element to a set represented as a list
2
setremove(list, element) -- removing an element from such a set
2
2
min(n1, n2, ...) -- minimum of n1,n2,...
2
max(n1, n2, ...) -- maximum of n1,n2,...
2
abs(n) -- absolute value of n
2
sqrt(n) -- square root of n, rounded down
2
random(n) -- random integer between 1 and n inclusive
2
time() -- current time in seconds since midnight GMT, 1 Jan 70
2
ctime([time]) -- time (or current time) converted to a human-readable string
2
index(str1, str2 [, case-matters]) -- index of first str2 in str1
2
rindex(str1, str2 [, case-matters]) -- index of last str2 in str1
is_player(object) -- testing whether or not object is a player
2
players() -- a list of all players, active or not
2
connected_players() -- a list of all currently-connected players
2
idle_seconds(player) -- seconds since given player typed anything
2
connected_seconds(player) -- seconds given player has been logged in
2
boot_player(player) -- disconnect player from the MOO immediately(*)
2
set_player_flag(player, value) -- set/clear player bit; boot player if clear(*)
2
connection_name(player) -- a server-assigned name for player's connection
2
open_network_connection(@args) -- open a connection to another network site
2
2
caller_perms() -- the player whose permissions your caller was using
2
set_task_perms(player) -- changing permissions of the running task (*)
2
callers() -- list of {obj, verb, owner, vloc, player}: this task's stack
2
suspend(secs) -- suspending the current task for a number of seconds
2
seconds_left() -- number of seconds left in the current task
2
ticks_left() -- number of ticks left in the current task
2
task_id() -- a random number representing the currently-running task
2
queued_tasks() -- list of {id,start,0,20000,owner,obj,verb,line,this}
2
kill_task(id) -- delete one of your tasks from the queue
2
2
server_log(string) -- add a comment to the server log file
2
server_version() -- a string of three numbers "major.minor.release"
2
memory_usage() -- {{blocksize, nused, nfree}, ...}, the server's memory stats
2
shutdown(msg) -- print msg and kill the server (*)
2
dump_database() -- what it says (*)
2
2
(*) => as you might have expected, these usually require wizard permissions.
38
1
4
69
2
The following kinds of expressions exist in the MOO programming language:
2
2
number
2
# number
2
# - number
2
"character string"
2
error-name
2
Literal expressions return the obvious values: numbers, object numbers, strings, and errors.
2
2
{ expression , expression , ... , expression }
2
The list-construction expression evaluates the each of the expressions in turn and returns a list whose elements are the results of those expressions. Any of the expressions may be prefixed with an at-sign ('@'); in this case, that expression must return a list and, rather than that list becoming an element of the final list, its elements are spliced into the final list.
2
2
name
2
Variable expressions return the current value of the named variable. Variable names must start with a letter or underscore ('_') and contain only letters, digits, and underscores. The following variables are predefined:
2
OBJ, STR, LIST, ERR, NUM
2
player, caller, this, verb, args
2
argstr, dobj, dobjstr, prepstr, iobj, iobjstr
2
Their initial values are described in detail in the LambdaMOO Programmer's Manual.
2
2
expression . name
2
expression . ( expression )
2
$ name
2
Property-reading expressions return the current value of a named property on the object that is the value of the first subexpression. In the second form, the second subexpression must return a string, the name of the property to be read. The third form is an abbreviation for '#0.name'.
2
2
expression : name ( arguments )
2
expression : ( expression ) ( arguments )
2
Verb-call expressions invoke a named verb on the object that is the value of the first subexpression, passing the given arguments. In the second form, the second subexpression must return a string, the name of the verb to invoke. The syntax and semantics of arguments is exactly as in the list-construction expression but no initial or final curly-braces ('{' or '}') are used.
2
2
function ( arguments )
2
The function-call expression invokes one of the MOO primitive functions, as listed in 'help functions', passing the given arguments.
2
2
expression [ expression ]
2
The indexing expression first evaluates the two subexpressions; call their values S and N, respectively. S must be a string or a list and N must be a number between 1 and the length of S, inclusive. The Nth element of S is returned. The elements of a string are themselves one-character strings.
2
2
expression [ expression .. expression ]
2
The subsequence expression first evaluates the three subexpressions; call their values S, N1, and N2, respecitively. S must be a string or a list and N1 and N2 must be numbers. If N1 <= N2, then both must be between 1 and the length of S, inclusive; the subsequence of S beginning at index N1 and continuing through index N2 is returned. If N1 > N2, the empty sequence of the same type as S is returned, either "" or {}.
2
2
name = expression
2
expression . name = expression
2
expression . ( expression ) = expression
2
$ name = expression
2
Assignment expressions give new values to variables and object properties. For the second and third forms, the expressions on the left-hand side of the '=' are evaluated first. Then the right-hand side expression is evaluated and result is stored in the indicated variable or object property.
2
2
expression + expression
2
expression - expression
2
expression * expression
2
expression / expression
2
expression % expression
2
- expression
2
The arithmetic expressions evaluate the subexpressions, all of which must return numbers, and then perform addition, subtraction, multiplication, division, remaindering, or negation, respectively. For addition, the subexpressions may both return strings as well; in this case, the result is the concatenation of the two strings.
2
2
expression == expression
2
expression != expression
2
expression < expression
2
expression <= expression
2
expression > expression
2
expression >= expression
2
The comparison expressions evaluate the subexpressions and then test whether or not the first result is equal to, unequal to, less than, less than or equal to, greater than, or greater than or equal to the second result, respectively. If the indicated relation holds then they return 1 and otherwise they return 0. Comparisons of strings are performed case-insensitively, those of lists are performed on an element-by-element basis, objects are compared by their object numbers, and errors by an ordering given in the LambdaMOO Programmer's Manual.
2
2
expression ? expression | expression
2
expression && expression
2
expression || expression
2
! expression
2
The logical expressions each return results based upon the truth value of their first subexpression; call the value of this expression X. The first of these returns the value of the second subexpression if X is a true value and that of the third expression if X is a false value; the unused subexpression is not evaluated. The definitions of 'true value' and 'false value' are given in 'help truth'. The expression 'E1 && E2' is an abbreviation for 'E1 ? E2 | E1' except that E1 is only evaluated once. The expression 'E1 || E2' is an abbreviation for 'E1 ? E1 | E2' except that E1 is only evaluated once. The expression '! E' is an abbreviation for 'E ? 0 | 1'.
2
2
expression IN expression
2
The list-membership expression first evaluates both subexpressions; call their values E and L, respectively. L must be a list. If E is an element of L, then the index of the first occurence of E in L is returned. If E is not an element of L, then 0 is returned.
2
2
The method for disambiguating the meaning of a complex MOO expression in the absence of sufficient parentheses is described in 'help precedence'.
38
1
4
37
2
Syntax: eval <MOO-code>
2
; <MOO-code>
2
eval-d <MOO-code>
2
2
Evaluates the given piece of MOO code and prints the resulting value. If the MOO code begins with one of the MOO language keywords ('if', 'for', 'while', 'fork', or 'return') or with the character ';', then the entire piece of code is treated as the program for a verb, with ';' appended to the end. Otherwise, 'return' is appended to the front and ';' is appended to the end and that string is treated as the code for a verb. In either case, the resulting verb is invoked and whatever value it returns is printed.
2
2
For programmers, this is such a mind-bogglingly useful thing to do that there is a simple abbreviation for this command; any command beginning with a semicolon (';') is treated as a use of 'eval'.
2
2
Eval treats specially a duplicated semicolon at the beginning. It enables you to make multi-statement programs within eval (but does not by default print the return value).
2
2
Eval-d (no ";" abbreviation for this) evaluates the following text exactly as eval, except that the "d" debug flag (see programmer's manual for explanation) is turned off. Thus errors will cause an error return value rather than a traceback.
2
2
If you set the player property .eval_time to 1, then eval will print out how many ticks and seconds the program required.
2
2
Examples:
2
eval 3 + 4
2
=> 7
2
;3+4
2
=> 7
2
;for x in (player.aliases) player:tell(x); endfor
2
Haakon
2
Wizard
2
ArchWizard
2
=> 0
2
;;l = {}; for i in [1..10] l = {@l, i}; endfor return l
2
=> {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
2
eval-d 8 + "foo"
2
=> E_TYPE (Type mismatch)
2
2
You may customize your evaluation environment. The player property .eval_env may contain statements to be executed prior to any evaluated program. Two caveats: This will throw off the tick count. You can account for additional ticks inserted by your environment with the .eval_ticks property; just set it to the number of ticks you'd like subtracted from the total. Additionally, if you make a syntax error in your program, the line reported will be wrong (it will count those initial statements), and if you make an error in the eval_env itself, you can be in deep trouble. Despite these drawbacks, the eval_env property can be quite useful. The following is a sample:
2
2
Eval_env: "me=player;here=player.location;"
2
eval_ticks: 3
2
2
See also @setenv.
2
2
You can also define textual substitutions in a separate property, called eval_subs. These are discouraged, however, for anything that can be done with variable assignments, because the overhead of replacing the strings in the evaluated program is significant. However, some things, such as substituting characters which can't be typed easily on one keyboard (e.g. "[]" is difficult to type on some IBM keyboards), can only be done by textual substitutions. Note that the eval substitutions are also interpreted by the verb editor when "eval_subs" is selected in your .edit_options property (see `help editors'). This adds to their overhead, but again, makes it possible for people to program who otherwise can't type the full character set. Remember: Don't use eval_subs unless you really have to!
Adds a new verb with the given name(s) to the named object. If there are multiple names, they should be separated by spaces and all enclosed in quotes:
2
2
@verb foo:"bar baz mum*ble"
2
2
The direct and indirect object specifiers (<dobj> and <iobj>) must be either 'none', 'this', or 'any'; their meaning is discussed in the LambdaMOO Programmer's Manual. The preposition specifier (<prep>) must be either 'none', 'any', or one of the prepositional phrases listed in `help prepositions' (a prepositional phrase with more than one word must be enclosed in quotes ("")). All three specifiers default to 'none'.
2
2
It is also possible to specify the new verb's permissions and owner as part of the same command (rather than having to issue separate @chmod/@chown commands)
<permissions> are as with @chmod, i.e., must be some subset of "rwxd". They default to "rd" (specifying "w" for a verb is highly inadvisable). The owner defaults to the player typing the command; only wizards can create verbs with owners other than themselves.
2
2
You may also use "tnt" in place of "this none this" for the dobj prep iobj arguments. "this none this" is used to indicate non-command verbs, since the parser can't possibly interpret a command as "this none this". For these verbs, the permissions default to "rxd"; the "x" bit is set so that they can be called from other programs. (If they couldn't be used as commands, and they couldn't be called from programs, they wouldn't be good for anything!)
38
1
4
5
2
Syntax: @setenv <environment string>
2
2
Defines the environment for eval (property player.eval_env). See "help eval"
2
for more information. This is mostly useful when one's .eval_env is broken
2
and prevents one from using eval to reset it.
38
1
4
7
2
Syntax: @rmverb <object>:<verb-name>
2
@rmverb <object>:<verb-name> <dobj> <prep> <iobj>
2
2
Removes the named verb from the named object.
2
If there is more than one verb matching the given verb-name, this removes the most recently defined one.
2
2
With the 2nd form of the command the verb removed is the most recent one matching both the given verb-name *and* the given dobj/prep/iobj specifiers.
2
5
4
3
2
Syntax: @rmproperty <object>.<prop-name>
2
2
Removes the named property from the named object. '@rmproperty' may be abbreviated as '@rmprop'.
2
5
4
29
2
Usage: @prospectus player [from number] [to number]
2
2
Like @audit, but displays more information. The optional from and to arguments are for restricting the display to specific object numbers, if you happen to know the player only owns objects in the included range.
2
2
Example:
2
Objects owned by Frand (from #0 to #54949):
2
P[ 23] #47 Frand [Hyperspace Hovel]
2
T #152 Frand's trio of shoes [Frand]
2
KfT[ 10] #391 Frand's notifier class [Nowhere]
2
T[ 8] #393 Frand's chessboard [The Dining Room]
2
KfT[ 11] #775 Frand's generic game board [Nowhere]
2
T[ 6] #893 Ghost game [The Dining Room]
2
T[ 16] #894 Frand's mind bender [The Dining Room]
2
C #997 polka-dot hole [Hyperspace Hovel]
2
R[ 1] #1002 Hyperspace Hovel
2
E #11958 out Monster Cage->*Dr. Empirico's Lab
2
...
2
2
The K in the first column indicates that the object has children owned by other players. A lowercase k indicates the object has children but owned only by the player. The second column indicates whether the object is publicly readable or publicly parentable. An r indicates readability. A lowercase f indicates the object is both readable and allows children (is fertile). An uppercase F indicates the object is not readable, yet allows children to be created. (This is usually an error.) If the object is readable by the issuer of the @prospectus command (that is, publicly readable or owned by the issuer), then the number in brackets indicates the number of verbs which have been defined on this object (not including any verbs from any parents).
2
2
The third column indicates what type of object this is.
2
T Thing
2
E Exit
2
R Room
2
C Container
2
N Note
2
P Player
2
p Parent object appropriate for players ("Player class")
2
blank Other
2
5
4
13
2
Syntax: @property <object>.<prop-name>
2
@property <object>.<prop-name> <initial-value>
2
2
Adds a new property named <prop-name> to the named object. The initial value is given by the second argument, if present; it defaults to 0.
2
2
Normally, a property is created with permissions 'rc' and owned by whoever types the command. However, you may also specify these explicitly
Changes the MOO program associated with the named verb on the named object.
2
If you provide <dobj> <preposition> and <iobj> as in the second form of this command, then it is the first verb with matching direct object, preposition and indirect object specifiers that is the one getting the new program. This is useful if you have several verbs matching the same name.
2
2
Typing the @program command always puts the server into a line-reading mode, in which each line you type is saved away without any action unless said line is one of the following:
2
2
.
2
@abort
2
.<text>
2
2
A period on a line by itself ends the line-reading mode and continues with the command, in this case, the saved lines are considered as a program, checked for syntax errors and, if no errors are found, installed as the new program for the specified verb.
2
2
@abort causes the command to terminate immediately with no change to any verb's program. .<text> enters <text> literally as one of the lines to be saved, which is used for when, e.g., you want to enter the line `.' or the line `@abort'.
2
2
Note that this command *always* enters the line-reading mode, even if the indicated verb is not found. In this case, lines of text are still read but they are ignored. After any @program command, you always need to type a period or `@abort' to get back into the normal command-reading mode.
Prints out the code for the MOO program associated with the named verb on the named object.
2
2
Normally, the code is shown with each line numbered and with only those parentheses that are necessary to show the meaning of the program. You can e.g., specify `without numbers' to have the numbers omitted or `with parentheses' to include all parentheses or even `with parentheses without numbers' to do both.
2
2
The 3rd form of the verb lists the verb matching the given dobj/prep/iobj specification if such exists.
2
2
Example:
2
Type `@list $room:@move' to see the code for the `@move' command, or even `@list $prog:@list' to see the code implementing @list itself...
2
2
The 2nd and 3rd forms can be combined, e.g.,
2
2
@list frobule:burfle this in front of any without numbers
2
2
which would be useful if `frobule' had more than one `burfle' verb and we wanted to see the one having `this' `in front of' `any' as its respective dobj/prep/iobj specifiers.
38
1
4
24
2
Syntax: @kill task_id
2
@kill [object]:[verb]
2
@kill soon [number-of-seconds]
2
@kill all
2
@kill %trailing_id
2
2
2
Immediately kills one or more forked tasks. The '@forked' command is useful for finding out what tasks you have pending; see 'help @forked' for details. Only the owner of a task may kill it.
2
2
@kill task_id kills only the task with that id.
2
2
@kill object:verb kills all tasks which were scheduled by the object running the verb named. Both object and verb are optional: @kill object: kills all tasks scheduled by that object, and @kill :verb kills all tasks which were scheduled by any object running that verb. This can be useful if you have several similar objects which are running tasks from similarly named verbs. (Perversely, @kill : kills all tasks... Any object running any task.)
2
2
@kill soon kills all tasks scheduled within the next minute. @kill soon number kills all tasks scheduled within that number of seconds, e.g. @kill soon 300 would kill all tasks scheduled within the next five minutes. This can be useful if you have a runaway task you want to quickly remove, but don't want to kill you later tasks.
2
2
@kill all kills all tasks. Like @kill soon, but more dramatic.
2
2
@kill %trailing_id expects you to specify the last few digits of a task id. It then kills all tasks that end with those digits.
Killed: task 1359083655, verb #5803:heartbeat, line 10, this==#68
38
1
4
8
2
Syntax: @kids object
2
2
A quick way to find out the children of an object. Prints out the names and object numbers of the found children. Note: this is not a list of all descendents, just direct children.
2
2
Example:
2
@kids #3107
2
Generic Body of Chlorinated Water(#3107) has 3 kids.
2
The Pool(#1428) The Hot Tub(#388) Deep Blue Underground Pool(#17340)
2
5
4
22
2
Syntax: @forked
2
2
Gives a list of all of the forked tasks you own, along with detailed information about each one. The information includes the following:
2
2
Queue ID:
2
A numeric identifier for the task, for use in killing it (see 'help @kill').
2
2
Start Time:
2
The time after which the task will begin execution.
2
2
Owner:
2
The player whose permissions under which the task is running.
2
Unless you are a wizard, @forked will show only your tasks.
2
2
Verb:
2
The object and verb-name of the code that forked the task.
2
2
Line:
2
The line number of the first statement that the task will execute when it starts. Note that the code for the verb in question may have changed since the task was forked; the forked task will use the version that was being executed when it was forked.
2
2
This:
2
The value of `this' for the forked task, in the case that it is different from (i.e., is a descendant of) the object on which the verb code lives.
Enters the MOO Verb Editor for the named verb on the named object. See 'help editors' for more detail.
2
5
4
42
2
Syntax: @display <object>.[property]
2
,[inherited_property]
2
:[verb]
2
;[inherited_verb]
2
2
@display is a fancy version of @show. As @show, it can select individual verbs or properties to display. In addition, it can display all the verbs or properties defined on an object, or all the verbs or properties defined on any of the object's ancestors. Don't specify a property or verbname after the punctuation mark to get the "all" feature. Its display is more compact than that of @show (it uses a one-line format, and truncates values that don't fit in the value field).
2
2
You may mix properties and verbs on the command line, but the parser may become confused. (E.g. @display object,: displays all properties including inherited ones plus all locally defined verbs on the object.)
2
2
Examples:
2
Individual property:
2
@display poolsweep.count
2
.count yduJ (#68) r c 8
2
2
Individual verb:
2
@display poolsweep:tell
2
#3560:tell yduJ (#68) rxd this none this
2
2
All properties, including one truncated value:
2
@display poolsweep.
2
poolsweep (#3560) [ readable ]
2
Owned by yduJ (#68).
2
Child of generic thing (#5).
2
Location The Pool (#1428).
2
.gagged yduJ (#68) r c 0
2
.count yduJ (#68) r c 8
2
.messages yduJ (#68) r c {"The poolsweep stir..
2
.index yduJ (#68) r c 2
2
.quantum yduJ (#68) r c 20
2
2
Inherited verbs, edited for brevity, showing verbs from various parents, with owners, permissions, and argument lists.
2
@d poolsweep;
2
poolsweep (#3560) [ readable ]
2
#3560:tell yduJ (#68) rxd this none this
2
#3560:description yduJ (#68) rxd this none this
2
#5:"g*et t*ake" Haakon (#2) rxd this none none
2
#5:"d*rop th*row" Haakon (#2) rxd this none none
2
#5:moveto Haakon (#2) rxd this none this
2
#1:description Haakon (#2) rxd this none this
2
#1:look_self Haakon (#2) rxd this none this
2
2
Some aspects of @display can be customized (see `help @display-options').
2
5
4
3
2
Syntax: @dbsize
2
2
@dbsize goes through the entire database, counting the valid and invalid objects, giving a summary at the end. This information can be useful, but because this command is cpu intensive, it should be used sparingly.
2
5
4
11
2
Syntax: @copy <object>:<verb> to [<newobject>][:<newverb>]
2
2
Copies the code of the named verb to the new object and verbname. Permissions, and arguments of the new verb are set to match those of the old verb in the event that the new verb does not already exist. One of <newobject> or :<newverb> must be supplied. If no new verbname is given, the old name is retained. Likewise, <newobject> defaults to <object> if not given.
2
2
Examples:
2
@copy me:verbname to myobject
2
@copy me:test_verb to myobject:real_verb
2
2
In general, @copy'ing verbs is a bad idea. In the vast majority of cases, the desired effect can be accomplished with parenting (i.e., having <object> be an ancestor of <newobject>), which has the advantage that if a verb is updated or fixed, this immediately becomes available to child objects that inherit this verb. In such a case, copies that were made using @copy have to be tracked down and fixed by hand.
2
2
This facility is provided for those rare occasions where one has no choice but to actually copy the verb.
2
5
4
7
2
Syntax: @chparent <object> to <new parent>
2
2
Changes the parent of the named object to be the named parent. The object acquires all the verb and property definitions of its parent. Newly acquired properties are initilialized with `clear' values so that they inherit whatever values are currently assigned to the parent's corresponding properties (see `help @clearproperty').
2
2
If the player does not own <new parent>, it must have been set `fertile'. <object> must be owned by the player. Neither <object> nor any descendant can define any property which already exist on <new parent>. Use @check-chparent (see `help @check-chparent') to list such property conflicts.
2
2
It is also sometimes the case that you will own some object and want to @chparent some child of that object that you do not own. Use @disinherit (see `help @disinherit') in such situations.
Changes the permissions of an object, property or verb, to those given. The following table shows what permission bits are allowed for each form of the command:
2
<object-permissions> r, w, f
2
<property-permissions> r, w, c
2
<verb-permissions> r, w, x, d
2
2
See the LambdaMOO Programmer's Manual for their meanings.
2
2
To clear all of the permissions for an object, verb, or property, use "" as the second argument.
2
2
@chmod also accepts +, !, and - as modifiers for a single permission to add or subtract that permission from the current set. (! and - are the same.)
2
2
Examples:
2
2
Set a verb to be Readable and Callable:
2
@chmod chair:sit rx
2
2
Set a verb to be not Callable, without changing its other permissions:
2
@chmod cookies:eat !x
2
2
Set an object to be Writeable in addition to any current bits:
2
@chmod table +w
2
5
4
5
2
Syntax: @args <object>:<verb-name> <dobj>
2
@args <object>:<verb-name> <dobj> <prep>
2
@args <object>:<verb-name> <dobj> <prep> <iobj>
2
2
Changes the direct object, preposition, and/or indirect object specifiers for the named verb on the named object. Any specifiers not provided on the command line are not changed. The direct and indirect object specifiers (<dobj> and <iobj>) must be either 'none', 'this', or 'any'. The preposition specifier (<prep>) must be either 'none', 'any', or one of the prepositional phrases listed in `help prepositions'.
38
1
4
13
2
Syntax: .program <object>:<verb-name>
2
:
2
:
2
<lines of MOO code>
2
:
2
:
2
.
2
2
Provides or changes the MOO program associated with the named verb on the named object.
2
2
This command is mostly obsolete. Use @program instead. The only reason this command still exists is that it is a server builtin command that will continue to work in the (unlikely) event that @program gets trashed ...
2
2
This command works differently from most other MOO commands, in that it actually changes how the server will interpret later lines that you type to it. After typing the '.program' line, you are in 'programming mode'. All lines that you type in this mode are simply saved away in the server until you type a line containing only a single period ('.'). At that point, those lines are interpreted as a MOO program and are checked for syntax errors. If none are found, a message to that effect is printed and the code you typed is installed as the program for the verb in question. In any case, after typing the '.' line, you are returned to the normal input-handling mode.
38
1
4
32
2
Syntax: @clearproperty <object>.<prop-name>
2
2
This clears <object>'s <prop-name> property. That is the property value becomes `clear' and all further references to this property will use the value of the same property on the parent object. Note that you can only clear inherited properties. Nor is this the same as removing a property; the property continues to exist.
2
2
`@clearproperty' can be abbreviated as `@clearp'.
2
2
Example:
2
2
@create #1 named foo
2
You now have foo with object number #42 and parent Root Class (#1).
2
[foo, as a child of #1 has a .description property which starts out clear]
2
;#1.description
2
=> ""
2
;#1.description = "You see nothing special"
2
=> "You see nothing special"
2
;#42.description
2
=> "You see nothing special"
2
;#42.description = "Something special"
2
=> "Something special"
2
[foo.description is now no longer clear; it has a value of its own]
2
;#1.description = "Boring"
2
=> "Boring"
2
;#42.description
2
=> "Something special"
2
2
@clearp foo.description
2
Property #42.description cleared; value is now "Boring".
2
[foo.description is now clear again]
2
;#1.description = ""
2
=> ""
2
;#42.description
2
=> ""
2
5
4
2
2
*forward*
2
@disinherit
2
5
4
11
2
Syntax: @disinherit <object>
2
@disinherit <object> [from <parent>]
2
2
Synonym: @disown
2
2
This command is used to remove an unwanted child from an object you own. If you owned said child, you could use @chparent; this command is to cover the other case, namely where you don't own the child.
2
2
Both forms of this command chparent <object> to its grandparent, provided you own the parent. The second form matches the string you supply for <object> against the list of children of the given <parent>.
2
2
Turning off the fertile bit (.f) for a particular object prevents others from creating children of it or chparenting to it (see `help @chmod').
2
Note also that, though the name might seem to indicate otherwise, this command does not change the ownership of any object.
2
5
4
2
2
*forward*
2
@display-options
2
5
4
24
2
Syntax: @display-option
2
@display-option <option>
2
2
Synonym: @displayoption
2
2
The display options customize the behavior of the @display command to your particular taste. The first form of this command displays all of your display options. The second form displays just that one option, one of the flags listed below.
2
2
The remaining forms of this command are for setting your display options:
2
2
@display-option +<flag>
2
@display-option -<flag>
2
@display-option !<flag> (equivalent to -<flag>)
2
2
These respectively set and reset the specified flag
2
2
-blank_tnt Show the verb args on all verbs.
2
+blank_tnt Don't show the verb args on `this none this' verbs.
2
-shortprep Use full prepositions (e.g., "on top of/on/onto/upon")
2
+shortprep Use short prepositions (e.g., "on")
2
-thisonly Specifying . (:) to retrieve all properties (verbs) will go
2
up the ancestor chain until it finds a readable object with
2
properties (verbs) defined on it.
2
+thisonly Specifying . (:) to retrieve all properties (verbs) will only
2
display properties (verbs) defined on the object itself.
2
5
4
24
2
*pass*
2
@add-feature
2
2
Note to programmers: @add-feature and @remove-feature are front-ends for player:add_feature and :remove_feature.
2
2
:add_feature returns
2
2
* E_PERM unless caller == this || $perm_utils:controls(caller_perms())
2
2
* E_INVARG if feature is not an object or is invalid
2
2
* E_PERM if the object is not feature_ok
2
2
* a true value otherwise
2
2
and calls feature:feature_add, if the verb exists.
and calls feature:feature_remove, if the verb exists.
2
5
4
2
2
*forward*
2
@add-feature
2
5
4
6
2
*pass*
2
features
2
2
Note to programmers: In order to be available for general use as a feature, an object must have a verb or property named "feature_ok" which returns a true value.
2
2
When a feature is added to a player's features list, feature:feature_add is called, if it exists, with the player in question as its argument. Likewise, when a feature is removed, feature:feature_remove is called.
2
5
4
4
2
*pass*
2
examine
2
2
[Note to programmers: the 'obvious' verbs are those that can be invoked as commands and are not specified by the :hidden_verbs verb. The default definition of "hidden" is "not readable". You can override this definition with a :hidden_verbs verb that gets the default list with pass(@args) and then alters that list.]
2
5
4
5
2
*pass*
2
mail
2
- - - - -
2
See `help mail-system' for a description of the programming interface to the mail system.
2
In particular, see `help $mail_recipient' for information on creating new mail collections.
2
5
4
7
2
#<string>[.<property>|.parent] [exit|player|inventory] [for <code>] returns information about the object (we'll call it <thing>) named by string. String is matched in the current room unless one of exit|player|inventory is given.
2
If neither .<property>|.parent nor <code> is specified, just return <thing>.
2
If .<property> is named, return <thing>.<property>. .parent returns parent(<thing>).
2
If <code> is given, it is evaluated, with the value returned by the first part being substituted for %# in <code>.
2
For example, the command
2
#JoeFeedback.parent player for tonum(%#)
2
will return 26026 (unless Joe has chparented since writing this).
2
5
5
2
5
5
2
4
4
1
2
Programmer Help
2
5
2
This provides help on the programmer commands available on $prog and related topics.
2
5
4
2
0
69496
0
743625440
2
1
#25
Wizard Help
16
38
-1
-1
-1
32
-1
24
0
34
@guests
@log
@egrep
@unnewt
@denewt
@newt
@grep
$site_db
graylist
blacklist
@recycle
wiz-index
@dump-database
@players
@net-who
@@who
make-core-database
@quota
@detoad
@untoad
@toad
@grepcore
@who-calls
@abort-shutdown
@shutdown
@programmer
@shout
@chown
@grant
redlist
@blacklist
@graylist
@redlist
@make-guest
39
4
7
2
Syntax: @guests [<n>]
2
2
Prints out the log of guest player connections, indicating connect/disconnect times and where they came from. If a numeric argument n is given, then only the last n entries in the log are consulted (useful for when the full log is rather long) --- note that connections and disconnections are separate entries so the actual printed listing will be about half this length.
2
2
Alternate: @guests now
2
2
Prints out in @who format all connected guests. In place of the location field is the current connect site.
38
5
4
11
2
Syntax: @log <message>
2
@log
2
2
The first form enters <message> as a one-line comment in the server log.
2
The second form prompts for a sequence of lines to be collectively entered as an extended comment. This uses $command_utils:read_lines so all of those conventions apply, i.e., a period on a line by itself ends the text, `@abort' aborts the command, etc...). Example: If Wizard (#2) types
2
2
@log I did $dump_interval=3600
2
2
the following line appears in the server log
2
2
Aug 19 22:36:52: COMMENT: from Wizard (#2): I did $dump_interval=3600
38
5
4
2
2
*forward*
2
@grep
38
5
4
2
2
*forward*
2
@denewt
38
5
4
10
2
Syntax: @denewt <player> [commentary]
2
2
Synonyms: @unnewt
2
@get-better
2
2
@denewt reverses the effects of @newt, moving a player's :denewt_confunc back to :confunc, but checking first that :confunc is the same as $wiz_utils:newt_confunc (if not, we save :confunc as :newt_confunc and complain).
2
2
Mail is sent to $newt_log including any commentary you provide. E.g.,
2
2
@denewt Twit He promises not to do it again.
38
5
4
25
2
*subst*
2
Syntax: @newt <player> [commentary]
2
2
The @newt command temporarily prevents logins on a given player.
2
It works by installing a confunc ($wiz_utils:newt_confunc) on player that does an immediate ;boot_player(), saving any existing :confunc the user may have as :denewt_confunc. Use @denewt to reverse this.
2
2
You must give either the player's full name or its object number.
2
Also, this command does not let you @newt yourself.
2
2
Mail will be sent to $newt_log, listing the player's .all_connect_places and including any commentary you provide. E.g.,
2
2
@newt Twit did real annoying things.
2
2
As with @toad and @programmer, there are messages that one may set
2
2
@newt [%[$wiz.newt_msg]]
2
Printed to everyone in the room in which the victim is being @newted.
2
If you're worried about accidentally newting yourself in the process of
2
setting this message, you can't (see above).
2
2
@newt_victim [%[$wiz.newt_victim_msg]]
2
Printed to the victim.
2
This is followed by $login:newt_registration_string().
2
2
See `help @toad' if you need something more drastic.
38
5
4
13
2
*pass*
2
@grep
2
2
For wizards, the following forms are also available for doing full-db searches
2
2
@grep <pattern>
2
@grep <pattern>
2
@egrep <pattern> from [#]<n>
2
@egrep <pattern> from [#]<n>
2
2
the first two search all objects in the database while the last two search the range [#<n>..max_object()]
2
2
See also: @grepcore, @who-calls.
38
5
4
21
2
Database of places
2
------------------
2
i.e., places people have connected from.
2
2
:add(sitename,player)
2
records the fact that player connected from sitename.
2
:load()
2
clears the db and reloads all of the player connection info.
2
2
.domain
2
default domain for unqualified sitenames given to :add.
2
2
For each domain we keep a list of players and subdomains.
2
For example, :add("doc.ic.ac.uk",#666) enters #666 on the lists for "doc.ic.ac.uk", and, if we have to create an entry for "doc.ic.ac.uk", we enter "doc" on the list for "ic.ac.uk", "ic" on the list for "ac.uk", etc.... In this case, :find("ic") will return the "ic.ac.uk" list if there is no other domain in $site_db starting with "ic". Note that the "ic.ac.uk" list may contain both objects, i.e., namely players that have connected from the site "ic.ac.uk", and strings, i.e., subdomains of "ic.ac.uk" like "doc".
2
2
:find_exact(string) => player/subdomain list or $failed_match
2
:find_all_keys(string) => list of all domains that begin with string
2
:find_key (string) => unique domain that begins with string,
2
$ambiguous_match or $failed_match
2
2
The other $generic_db functions (:find, :find_all) are also available, though admittedly less useful.
38
5
4
2
2
*forward*
2
blacklist
38
5
4
26
2
2
The Site Blacklist
2
------------------
2
$login maintains three lists of hosts/domains to support player registration schemes and blocking of connections from highly untrusted hosts:
2
2
.redlist -- all connections from these sites are disabled
2
.blacklist -- player creation and guest logins are disabled
2
.graylist -- advisory list of potential trouble spots (putting a site on the
2
.graylist merely annotates it in @net-who listings).
2
2
The lists are kept in a special format so it is highly recommended that you
2
either use $wiz:@*list/@un*list or the following verbs to query/update the
2
respective lists rather than bash them directly:
2
2
$login:*listed (host) is host is on .*list?
2
$login:*list_add (domain or subnet) add domain or subnet to .*list
2
$login:*list_remove(domain or subnet) remove domain or subnet from .*list
2
2
where `*' is one of `black', `red', or `gray'.
2
2
One may either specify a domain name (e.g., "baz.edu") or a numeric IP address (e.g., "36.0.23.17"). Domain names match all hosts underneath that domain, so, e.g., puting "baz.edu" on a list effectively adds "x.bax.edu" for all x as well.
2
Likewise, an incomplete numeric address, e.g., "128.42" will match that entire subnet, in this case all hosts whose IP numbers have the form "128.42.m.n" for arbitrary integers m and n.
2
2
One may also give a domain name containing a wildcard ("*"), e.g., "fritz*.baz.edu", in which case all hostnames matching in the sense of $string_utils:match_string() are considred to be on the list. Wildcard matching should be avoided since it is more time-consuming.
2
2
It should be noted that, since there is no direct access to the domain name service from within the MOO, it is possible for a host to be blacklisted or redlisted via its domain name, and yet have someone be able to connect from that host (and, in the case of a blacklisted host, create a character) --- this can happen if the name service is down and connection_name() on that player thus has given the numeric IP address rather than the domain name. Similarly, if you list a host by IP number alone, it will still be possible to get in via the site's domain name. Thus to be completely assured of shutting out a site, you need to list it both by domain name and IP number.
38
5
4
6
2
*pass*
2
@recycle
2
2
Of course, wizards are allowed to @recycle anything at all.
2
2
There is, however, a block (in $player:recycle) against recycling actual players, i.e., descendants of $player that have the player flag set. This is mainly to prevent stupid mistakes. If, for some reason, you want to recycle a player, you need to @toad it first.
38
5
4
2
2
*index*
2
Wizard Help Topics
38
5
4
3
2
Syntax: @dump-database
2
2
Invokes the builtin dump_database(), which requests that the server checkpoint the database at its next opportunity. It is not normally necessary to call this function; the server automatically checkpoints the database at regular intervals; see the chapter on server assumptions about the database for details.
38
5
4
3
2
Syntax: @players [with objects]
2
2
Hmmm... what *does* this do, anyway?
38
5
4
9
2
Syntax: @net-who [<player>...]
2
@net-who from [<domain>]
2
2
Synonym: @@who
2
2
@net-who without any arguments prints all connected users and hosts. If one or more <player> arguments are given, the specified users are printed along with their current or most recent connected hosts. If any of these hosts are mentioned on $login.blacklist or $login.graylist (see `help blacklist'),
2
an annotation appears.
2
2
With a `from...' argument, this command consults $site_db and prints all players who have ever connected from the given domain.
38
5
4
2
2
*forward*
2
@net-who
38
5
4
3
2
Syntax: make-core-database
2
2
...makes a core database (surprise). Film at 11...
This second and more interesting form of the verb changes a player's quota to the given number. Mail will be sent to $quota_log; the message will include the <reason> if such is given.
If the name/alias... specification is given, the object is also renamed.
2
In order for this to work, the object must be a nonplayer descendant of $player and the new object name (or the original name if none is given in the command line) must be available for use as a player name. As with ordinary player @renaming, any aliases which are unavailable for use as player names are eliminated.
2
2
If the object is a descendant of $guest, then it becomes a new guest character.
2
Otherwise the object is chowned to itself. In the latter case, it is advisable to check that the .password property has something nontrivial in it.
2
2
If the object is a descendant of $prog, then its .programmer flag is set.
2
Note that the .wizard flag is not set under any circumstances.
Resets the player flag of <player> (thus causing <player> to be booted), resets the .programmer and .wizard flags, chowns the player object to $hacker, and removes all of its names and aliases from $player_db.
2
2
You must give either the player's full name or its object number.
2
Also, this command does not let you @toad yourself.
2
2
In some cases you may wish to add the player's last connected site to the site graylist, blacklist or redlist --- see `help blacklist' --- in order to invoke various kinds of blocking on that site (e.g., if player creation is enabled, you may want to enter the player on the blacklist to keep him from immediately creating a new character). Specifying one of the listnames `graylist', `blacklist' or `redlist' will do this.
2
2
@toad! <player> is synonymous with @toad <player> blacklist
2
@toad!! <player> is synonymous with @toad <player> redlist
2
2
There are messages that one may set to customize toading. After all, a toading is (supposed to be) a rare event and you will doubtless want to put on a good show. Thus we have
2
2
@toad [%[$wiz.toad_msg]]
2
Printed to everyone in the room in which the victim is being @toaded.
2
If you're worried about accidentally toading yourself in the process of
2
setting this message, see above.
2
2
@toad_victim [%[$wiz.toad_victim_msg]]
2
Printed to the victim.
2
2
These are pronoun_subbed with victim == dobj.
38
5
4
6
2
Syntax: @grepcore <pattern>
2
@who-calls <verbname>
2
2
@grepcore pattern is @grep pattern in {all core objects}. Core objects are computed for you by #0:core_objects().
2
2
@who-calls greps for the verbname + "(", hoping to catch it as a verb call. Currently @who-calls does not allow you to restrict the search as @grep does. (Volunteers?)
38
5
4
2
2
*forward*
2
@grepcore
38
5
4
3
2
Syntax: @abort-sh*utdown [<text>]
2
2
This aborts any shutdown currently in progress (i.e., set in motion by @shutdown). All players are notified that no shutdown will actually occur; <text>, if given will be included in this notification.
38
5
4
5
2
Syntax: @shutdown [in <m>] [<text>]
2
2
This is the friendly way to do a server shutdown; it arranges for the actual shutdown to take place `m' minutes hence (default two). Shutdown is preceded by a sequence of warnings to all connected players. Warnings are likewise given to all players who connect during this time. <text>, if given is included in these warning messages, perhaps as an explanation for why the server is being shut down.
2
2
Shutdown may be aborted at any time by using @abort-shutdown.
38
5
4
16
2
*subst*
2
Syntax: @programmer <player>
2
2
Sets the programmer flag on the indicated player and sends mail to $new_prog_log.
2
2
If the player is not already a descendant of $prog, we @chparent him/her to $prog. In this case, if $prog has a larger .ownership_quota than its ancestors, then we raise the player's quota by the difference between $prog.ownership_quota and the .ownership_quota of the common ancestor of player and $prog, be this $player or some intermediate class.
2
2
There are messages that one may set to customize how the granting of a programmer bit looks to the victim and to any onlookers. After all, this is a seminal event in a MOOer's life... Thus we have
2
2
@programmer [%[$wiz.programmer_msg]]
2
Printed to everyone in the room with the victim being @programmer'ed.
Broadcasts the given text to all connected players.
38
5
4
13
2
Syntax: @chown <object> [to] <owner>
2
@chown <object>.<propname> [to] <owner>
2
@chown <object>:<verbname> [to] <owner>
2
2
Changes the ownership of the indicated object, property or verb.
2
2
Verb ownership changes are fairly straightforward, being merely a matter of changing the verb_info() on a single verb.
2
2
Changing an object ownership includes changing the ownership on all +c properties on that object. Note that @chown will not change the ownership of any other properties, nor will it change verb ownerships. Use @grant if you need to do a more complete ownership change. The quota of the former owner is increased by one, as is the quota of the new owner decreased by one.
2
2
Changing a property ownership is truly hairy. If the property is +c one shouldnot be doing this, unless it is to correct a past injustice which caused the property to be owned by the wrong player. In the case of -c properties, the property ownership is changed on all descendent objects (currently, if +c instances of a -c property are found in the traversal of all of the descendants, these are not changed, being deemed sufficiently weird that they should be handled on a case-by-case basis...).
2
2
If there's any justice, a future version of the server will prevent occurrences of (1) +c properties being owned by someone other than the object owner (2) -c properties with different owners on descendant objects (3) -c properties that are +c on some descendants.
38
5
4
3
2
Syntax: @grant <object> to <player>
2
2
Ownership of the object changes as in @chown, i.e., .owner and all c properties change hands while the previous owner's and the new owner's quotas are adjusted. In addition all verbs and !c properties owned by the previous owner change ownership as well. Finally, for !c properties, instances on descendant objects change ownership as when @chowning the properties individually.
38
5
4
2
2
*forward*
2
blacklist
38
5
4
14
2
Syntax: @redlist [<domain or subnet> [commentary]]
2
@blacklist [<domain or subnet> [commentary]]
2
@graylist [<domain or subnet> [commentary]]
2
2
Syntax: @unredlist [<domain or subnet> [commentary]]
2
@unblacklist [<domain or subnet> [commentary]]
2
@ungraylist [<domain or subnet> [commentary]]
2
2
With no argument, the current contents of the <color>list are printed.
2
Otherwise, the specified domain or subnet is added to or removed from the list and mail will be sent to $site_log.
2
2
If the given domain or subnet has subdomains/subsubnets that are already on the list, you will be prompted as to whether you want to remove them. Note that adding an entry for a particular domain or subnet effectively adds all subdomains/subsubnets, so unless there's some reason for keeping an explicit entry for a particular subdomain, chances are you will indeed want to remove them. One reason to keep an explicit entry for a subdomain would be if you intended to unlist the full domain later but wanted to be sure you didn't unlist the subdomain in the process.
2
2
See `help blacklist' for a description of the functions of these <color>lists.
38
5
4
2
2
*forward*
2
@blacklist
38
5
4
2
2
*forward*
2
@blacklist
38
5
4
7
2
Syntax: @make-guest <adjective>
2
2
This creates a new guest character. For example,
2
@make-guest Loud
2
creates a child of $guest, owned by $hacker, named Loud_Guest and with aliases Loud and Loud_Guest.
2
2
See also `help @make-player'.
38
5
5
38
5
5
38
4
4
1
2
Wizard Help
38
5
4
1
2
This describes the various commands available on $wiz.
38
5
4
2
0
19990
0
743584563
2
1
#26
Wizard Utilities
16
2
-1
-1
-1
1
-1
15
28
set_programmer
2
173
-1
set_player
2
173
-1
set_owner
2
173
-1
set_property_owner
2
165
-1
unset_player
2
173
-1
set_property_flags
2
165
-1
_set_property_flags
2
173
-1
random_password
2
173
-1
queued_tasks
2
165
-1
player_cmd_perms
2
173
-1
isnewt
2
165
-1
newt_confunc
2
169
-1
initialize_owned
2
173
-1
verify_owned_objects
2
173
-1
connected_wizards
38
165
-1
all_wizards
38
165
-1
rename_all_instances
2
165
-1
missed_help
2
173
-1
show_missing_help
2
173
-1
init_for_core
2
173
-1
show_netwho_listing
2
173
-1
show_netwho_from_listing
2
173
-1
check_player_request check_reregistration
2
173
-1
make_player
2
173
-1
send_new_player_mail
2
173
-1
do_make_player
2
93
-2
do_register
2
173
-1
do_new_password
2
93
-2
4
default_programmer_quota
default_player_quota
missed_help_strings
missed_help_counters
8
0
20
2
5
0
7
2
5
4
0
2
1
4
0
2
1
5
2
4
4
1
2
Wizard Utilities
2
5
4
36
2
Wizard Utilities
2
----------------
2
The following functions are substitutes for various server builtins.
2
Anytime one feel tempted to use one of the expressions on the right,
2
use the corresponding one on the left instead. This will take care
2
of various things that the server (for whatever reason) does not handle.
sin(a),cos(a),tan(a) -- returns 10000*(the value of the corresponding
2
trigonometric function) angle a is in degrees.
2
arctan([x,]y) -- returns arctan(y/x) in degrees in the range -179..180.
2
x defaults to 10000. Quadrant is that of (x,y).
2
exp(x[,n]) -- calculates e^x with an nth order taylor polynomial
2
2
Statistical functions:
2
combinations(n,r) -- returns the number of combinations given n objects
2
taken r at a time.
2
permutations(n,r) -- returns the number of permutations possible given
2
n objects taken r at a time.
2
2
Number decomposition:
2
div(n,d) -- correct version of / (handles negative numbers correctly)
2
mod(n,d) -- correct version of % (handles negative numbers correctly)
2
divmod(n,d) -- {div(n,d),mod(n,d)}
2
parts(n,q[,i]) -- returns a list of two elements {integer,decimal fraction}
2
2
Other math functions:
2
sqrt(x) -- returns the largest integer n <= the square root of x
2
pow(x,n) -- returns x^n
2
factorial(x) -- returns x!
2
2
Series:
2
fibonacci(n) -- returns the 1st n fibonacci numbers in a list
2
geometric(x,n) -- returns the value of the nth order geometric series at x
2
2
Integer Properties:
2
gcd(a,b) -- find the greatest common divisor of the two numbers
2
lcm(a,b) -- find the least common multiple of the two numbers
2
are_relatively_prime(a,b) -- return 1 if a and b are relatively prime
2
is_prime(n) -- returns 1 if the number is a prime and 0 otherwise
2
2
Miscellaneous:
2
random(n) -- returns a random number from 0..n if n > 0 or n..0 if n < 0
2
random_range(n[,mean]) -- returns a random number from mean - n..mean + n
2
with mean defaulting to 0
2
simpson({a,b},{f(a),f((a+b)/2),f(b)}) -- returns the numerical
2
approximation of an integral using simpson's rule
2
2
Bitwise Arithmetic:
2
AND(x,y) -- returns x AND y
2
OR(x,y) -- returns x OR y
2
XOR(x,y) -- returns x XOR y (XOR is the exclusive-or function)
2
NOT(x) -- returns the complement of x
2
All bitwise manipulation is of 32-bit values.
38
5
4
2
0
19005
0
743585512
2
1
#29
Set Utilities
16
38
-1
-1
-1
1
-1
26
7
union
38
173
-1
intersection
38
173
-1
diff*erence
38
173
-1
contains
38
173
-1
exclusive_or xor
38
173
-1
difference_suspended diff_suspended
38
173
-1
equal
38
173
-1
0
4
5
38
4
4
2
2
Set Utilities
2
set_utilities
38
5
4
16
2
This object is useful for operations that treat lists as sets (i.e.,
2
without concern about order and assuming no duplication).
2
2
union(set, set, ...) => union
2
intersection(set, set, ...) => intersection
2
2
diff*erence(set1, set2, ..., setn)
2
=> result of removing all elements of sets 2..n from set 1.
2
exclusive_or(set, set, set, ...)
2
=> all elements that are contained in exactly one of the sets
2
2
contains(set1, set2, ..., setn)
2
=> true if and only if all of sets 2..n are subsets of set 1
2
2
equal(set1, set2)
2
=> true if and only if set1 and set2 are equal
38
5
4
2
0
4429
0
743625628
2
1
#30
Builtin Function Help
16
38
-1
-1
-1
32
-1
25
1
init_for_core
2
173
-1
81
match()
rmatch()
substitute()
sqrt()
server_log()
pass()
builtin-index
open_network_connection()
connection_name()
shutdown()
dump_database()
memory_usage()
reset_max_object()
renumber()
server_version()
output_delimiters()
callers()
kill_task()
queued_tasks()
read()
suspend()
task_id()
seconds_left()
ticks_left()
caller_perms()
set_task_perms()
eval()
boot_player()
notify()
idle_seconds()
connected_seconds()
connected_players()
set_player_flag()
is_player()
players()
set_verb_code()
verb_code()
delete_verb()
add_verb()
set_verb_args()
verb_args()
set_verb_info()
verb_info()
verbs()
delete_property()
add_property()
set_property_info()
property_info()
properties()
move()
max_object()
recycle()
children()
parent()
valid()
chparent()
create()
setremove()
setadd()
listset()
listdelete()
listinsert()
listappend()
strcmp()
rindex()
index()
crypt()
strsub()
length()
ctime()
time()
random()
abs()
max()
min()
toobj()
tonum()
tostr()
typeof()
clear_property()
is_clear_property()
86
4
20
2
Syntax: match (str <subject>, str <pattern> [, <case-matters>]) => list
2
rmatch (str <subject>, str <pattern> [, <case-matters>]) => list
2
2
The function `match()' (`rmatch()') searches for the first (last) occurrence of the regular expression <pattern> in the string <subject>. If <pattern> is syntactically malformed, then `E_INVARG' is returned. If no match is found, the empty list is returned; otherwise, these functions return a list containing information about the match (see below). By default, the search ignores upper/lower case distinctions. If <case-matters> is provided and true, then case is treated as significant in all comparisons.
2
2
The list that `match()' (`rmatch()') returns contains the details about the match made. The list is in the form:
2
2
{<start>, <end>, <replacements>, <subject>}
2
2
where <start> is the index in STRING of the beginning of the match, <end> is the index of the end of the match, <replacements> is a list described below, and <subject> is the same string that was given as the first argument to the `match()' or `rmatch()'.
2
2
The <replacements> list is always nine items long, each item itself being a list of two numbers, the start and end indices in <subject> matched by some parenthesized sub-pattern of <pattern>. The first item in <replacements> carries the indices for the first parenthesized sub-pattern, the second item carries those for the second sub-pattern, and so on. If there are fewer than nine parenthesized sub-patterns in <pattern>, or if some sub-pattern was not used in the match, then the corresponding item in <replacements> is the list {0, -1}. See the discussion of `%)' in `help regular-expressions', for more information on parenthesized sub-patterns.
See `help regular-expressions' for information on the syntax and semantics of patterns.
38
5
4
2
2
*forward*
2
match()
38
5
4
9
2
Syntax: substitute (str <template>, list <subs>) => str
2
2
Performs a standard set of substitutions on the string <template>, using the information contained in <subs>, returning the resulting, transformed <template>. <Subs> should be a list like those returned by `match()' or `rmatch()' when the match succeeds.
2
2
In <template>, the strings `%1' through `%9' will be replaced by the text matched by the first through ninth parenthesized sub-patterns when `match()' or `rmatch()' was called. The string `%0' in <template> will be replaced by the text matched by the pattern as a whole when `match()' or `rmatch()' was called.
2
2
subs = match("*** Welcome to LambdaMOO!!!", "%(%w*%) to %(%w*%)");
2
substitute("I thank you for your %1 here in %2.", subs)
2
=> "I thank you for your Welcome here in LambdaMOO."
38
5
4
3
2
Syntax: sqrt (num <x>) => num
2
2
Returns the square root of <x>. If <x> is negative, then `E_INVARG' is returned.
The text in <message> is sent to the server log. If the programmer is not a wizard, then `E_PERM' is returned. If <is-error> is provided and true, then <message> is marked in the server log as an error.
38
5
4
31
2
Syntax: pass (<arg>,...)
2
2
Often, it is useful for a child object to define a verb that *augments*
2
the behavior of a verb on its parent object. For example, the root object
2
(an ancestor of every other object) defines a :description() verb that
2
simply returns the value of `this.description';
2
this verb is used by the implementation of the `look' command.
2
In many cases, a programmer would like the description of some object to
2
include some non-constant part; for example, a sentence about whether or not
2
the object was `awake' or `sleeping'. This sentence should be added onto the
2
end of the normal description. The programmer would like to have a means of
2
calling the normal `description' verb and then appending the sentence onto the
2
end of that description. The function `pass()' is for exactly such situations.
2
2
pass() calls the verb with the same name as the current verb but as
2
defined on the parent of the object that defines the current verb. The
2
arguments given to the called verb are the ones given to pass() and the
2
returned value of the called verb is returned from the call to pass().
2
The initial value of `this' in the called verb is the same as in the
2
calling verb.
2
2
Thus, in the example above, the child-object's :description() verb might
2
have the following implementation:
2
2
return pass(@args) + " It is " + (this.awake ? "awake." | "sleeping.");
2
2
That is, it calls its parent's :description() verb and then appends to the
2
result a sentence whose content is computed based on the value of a property on
2
the object.
2
2
In the above example, `pass()' would have worked just as well, since :description() is not normally given any arguements. However, it is a good idea to get into the habit of using `pass(@args)' rather than `pass(args[1])' or `pass()' even if the verb being pass()ed to is already known to take a set number of arguments or none at all. For one thing, though the args may be irrelevant to the code that you've written, it may be that the corresponding verb on the parent has been rewritten to take additional arguments, in which case you will want your verb to continue to work...
Removes the verb named <verb-name> from the given <object>. If
2
<object> is not valid, then `E_INVARG' is returned. If the programmer
2
does not have write permission on <object>, then `E_PERM' is returned.
2
If <object> does not define a verb named <verb-name>, then
2
`E_VERBNF' is returned.
38
5
4
14
2
Syntax: add_verb (obj <object>, list <info>, list <args>) => none
2
2
Defines a new verb on the given <object>. The new verb's owner, permission
2
bits and name(s) are given by <info> in the same format as is returned by
2
`verb_info()'. The new verb's direct-object, preposition, and indirect-object
2
specifications are given by <args> in the same format as is returned by
2
`verb_args()'. The new verb initially has the empty program associated with
2
it; this program does nothing but return an unspecified value.
2
2
If <object> is not valid, or <info> does not specify a legitimate owner
2
and permission bits, or <args> is not a legitimate syntax specification,
2
then `E_INVARG' is retuned. If the programmer does not have write
2
permission on <object> or if the owner specified by <info> is not the
2
programmer and the programmer is not a wizard, then `E_PERM' is returned.
38
5
4
2
2
*forward*
2
verb_args()
38
5
4
12
2
Syntax: verb_args (obj <object>, str <verb-name>) => list
2
set_verb_args (obj <object>, str <verb-name>, list <args>) => none
2
2
These two functions get and set (respectively) the direct-object, preposition, and indirect-object specifications for the verb named <verb-name> on the given <object>. If <object> is not valid, then `E_INVARG' is returned. If <object> does not define a verb named <verb-name>, then `E_VERBNF' is returned. If the programmer does not have read (write) permission on the verb in question, then `verb_args()' (`set_verb_args()') returns `E_PERM'. Verb args specifications have the following form:
2
2
{<dobj>, <prep>, <iobj>}
2
2
where <dobj> and <iobj> are strings drawn from the set `"this"', `"none"', and `"any"', and <prep> is a string that is either `"none"', `"any"', or one of the prepositional phrases listed much earlier in the description of verbs in the first chapter. This is the kind of value returned by `verb_info()' and expected as the third argument to `set_verb_info()'. Note that for `set_verb_args()', <prep> must be only one of the prepositional phrases, not (as is shown in that table) a set of such phrases separated by `/' characters. `Set_verb_args()' returns `E_INVARG' if any of the <dobj>, <prep>, or <iobj> strings is illegal.
If a property is clear, then when the value of that property is queried the
2
value of the parent's property of the same name is returned. If the parent's
2
property is clear, then the parent's parent's value is examined, and so on.
2
If <object> is the definer of the property <prop-name>, as opposed to
2
an inheritor of the property, then `clear_property()' returns
2
`E_INVARG'.
38
5
4
2
2
*forward*
2
clear_property()
38
5
5
38
5
5
38
4
4
1
2
Builtin Function Help
38
5
4
32
2
A help database (in the sense of anything that is usable by $player:help()) is any object having the following two verbs:
2
2
:find_topics(string)
2
returns a list of strings or some boolean false value.
2
2
:get_topic(string)
2
given one of the strings returned by :find_topics this either
2
returns a list of strings (text to be spewed to the player) or
2
returns 1 to indicate that it has already taken care of printing
2
information to the player.
2
2
$player:help() consults any .help properties that exist on the player, its ancestors, player.location and its ancestors (in that order). These properties are assumed to have values that are objects or lists of objects, each object itself assumed to be a help database in the above sense. The main help database ($help) is placed at the end of the list of databases to be consulted.
2
2
The Generic Help Database (this object) is the standard model help database of which the actual help database itself ($help) is an instance. On help databases of this type, every help topic has a corresponding property, interpreted as follows:
2
2
this.(topic) = string - one-line help text.
2
this.(topic) = {"*verb*",@args} - call this:verb(@args) to get text
2
this.(topic) = any other list - multi-line help text
2
2
For the {"*verb*",...} form, the current verbs available are
2
2
{"*forward*", topic2, @rest}
2
- get topic2 help text and then append rest.
2
rest may, in turn, begin with a "*verb*"...
2
2
{"*subst*", @lines}
2
- all occurences of %[exp] in lines are replaced with value of exp.
2
exp is assumed to evaluate to a string. Evaluation is done using
2
$no_one's permissions so exp can only refer to public information.
2
2
{"*index*"}
2
- returns a list of all topics in this database, arranged in columns.
38
5
4
2
0
65428
0
743668286
2
1
#31
New-Prog-Log
0
38
47
-1
-1
46
-1
16
7
init_for_core
2
173
-1
receive_message
38
173
-1
display_seq_headers display_seq_full
38
173
-1
from_msg_seq
38
173
-1
to_msg_seq
38
173
-1
%to_msg_seq subject_msg_seq
2
173
-1
%from_msg_seq
2
173
-1
0
18
5
38
5
0
-1464082045
38
1
4
0
38
0
0
1
38
5
2
%n (%#) can't send to moderated list %t (%[#t]) directly.
38
5
4
0
38
5
4
0
38
5
4
1
1
2
38
1
4
2
1
2
1
31
38
1
0
2592000
38
5
0
-1464082045
38
1
4
8
4
2
0
1
4
4
0
-1465142007
1
2
1
146
2
JL
4
2
0
2
4
4
0
-1465140906
1
2
1
147
2
LiverSpot
4
2
0
3
4
4
0
-1465130015
1
2
1
77
2
The_Demolished_Man
4
2
0
4
4
4
0
-1465129956
1
2
1
154
2
Mark
4
2
0
5
4
4
0
-1464698968
1
2
1
228
2
builder
4
2
0
6
4
4
0
-1464179478
1
77
1
337
2
Trygve
4
2
0
7
4
4
0
-1464094704
1
147
1
346
2
shelby
4
2
0
8
4
4
0
-1464082045
1
2
1
79
2
Dead_Meat
38
0
5
38
5
5
38
5
5
38
4
4
3
2
New-Prog-Log
2
New_Prog_Log
2
NPL
38
1
2
Record of who's been made a @programmer.
38
5
4
2
0
24888
0
743970084
2
1
#32
Generic Help Database
144
38
-1
-1
-1
1
61
17
10
find_topics
2
165
-1
get_topic
2
165
-1
sort_topics
38
173
-1
columnize
38
173
-1
forward pass
38
165
-1
subst
38
173
-1
index
38
173
-1
initialize
2
173
-1
verbdoc
2
173
-1
dump_topic
2
165
-1
1
index
5
4
0
38
5
5
38
4
4
1
2
Generic Help Database
38
5
2
A help database of the standard form in need of a description. See `help $generic_help'...
38
5
4
2
0
7944
0
743756001
2
1
#33
Generic Guest
16
38
-1
-1
-1
6
83
4
18
@password
2
93
-2
boot
2
173
-1
disfunc
2
173
-1
defer
2
173
-1
mail_catch_up
2
173
-1
create
38
89
-2
eject
38
173
-1
log
38
173
-1
confunc
2
173
-1
log_disconnect
2
165
-1
@last-c*onnection
2
29
-1
connection_name_hash
2
173
-1
my_huh
2
173
-1
@read
38
89
-2
set_current_folder
38
173
-1
@request*-character @register
2
89
11
init_for_core
2
173
-1
set_name set_aliases
2
173
-1
4
default_gender
default_description
request
extra_confunc_msg
60
2
neuter
38
1
4
1
2
By definition, guests appear nondescript.
38
1
0
0
2
0
2
38
5
5
38
1
5
2
0
5
38
5
5
2
0
5
2
1
0
0
38
5
5
38
5
5
38
1
5
38
1
5
38
0
5
38
1
5
38
5
5
2
1
0
79
38
1
5
38
4
5
2
0
5
2
0
5
38
5
5
38
4
5
38
5
4
39
4
2
4
3
4
5
1
11
2
announce_all_but
1
2
1
3
1
58320
4
5
1
25489
2
confunc
1
2
1
25489
1
58320
4
3
1
58320
2
<cmd-line>
1
58320
4
2
2
Redback
2
has connected.
4
2
4
5
4
5
1
11
2
announce_all_but
1
2
1
3
1
58320
4
5
1
16
2
move
1
2
1
7
1
58320
4
5
1
16
2
invoke
1
2
1
7
1
58320
4
5
1
11
2
open
1
50
1
11
1
58320
4
3
1
58320
2
<cmd-line>
1
58320
4
3
2
Redback
2
2
opens the closet door and leaves, closing it behind itself.
4
2
4
5
4
5
1
11
2
announce_all_but
1
2
1
3
1
5743
4
5
1
16
2
move
1
2
1
7
1
5743
4
5
1
16
2
invoke
1
2
1
7
1
5743
4
5
1
11
2
open
1
50
1
11
1
5743
4
3
1
5743
2
<cmd-line>
1
5743
4
3
2
Yellow_Guest
2
2
opens the closet door and leaves, closing it behind itself.
4
2
4
3
4
5
1
11
2
announce
1
2
1
3
1
5704
4
5
1
11
2
disfunc
1
2
1
11
1
5704
4
3
1
5704
2
<cmd-line>
1
5704
4
3
2
You hear a quiet popping sound;
2
Guest
2
has disconnected.
4
2
4
3
4
5
1
11
2
announce_all_but
1
2
1
3
1
18308
4
5
1
25489
2
confunc
1
2
1
25489
1
18308
4
3
1
18308
2
<cmd-line>
1
18308
4
2
2
Dafydd
2
has connected.
4
2
4
3
4
5
1
11
2
announce
1
2
1
3
1
18308
4
5
1
11
2
disfunc
1
2
1
11
1
18308
4
3
1
18308
2
<cmd-line>
1
18308
4
3
2
You hear a quiet popping sound;
2
Dafydd
2
has disconnected.
4
2
4
3
4
5
1
11
2
announce_all_but
1
2
1
3
1
58322
4
5
1
25489
2
confunc
1
2
1
25489
1
58322
4
3
1
58322
2
<cmd-line>
1
58322
4
2
2
predator
2
has connected.
4
2
4
5
4
5
1
11
2
announce_all_but
1
2
1
3
1
58322
4
5
1
16
2
move
1
2
1
7
1
58322
4
5
1
16
2
invoke
1
2
1
7
1
58322
4
5
1
11
2
open
1
50
1
11
1
58322
4
3
1
58322
2
<cmd-line>
1
58322
4
3
2
predator
2
2
opens the closet door and leaves, closing it behind itself.
4
2
4
3
4
5
1
11
2
announce_all_but
1
2
1
3
1
5704
4
5
1
25489
2
confunc
1
2
1
25489
1
5704
4
3
1
5704
2
<cmd-line>
1
5704
4
2
2
Guest
2
has connected.
4
2
4
5
4
5
1
11
2
announce_all_but
1
2
1
3
1
5704
4
5
1
16
2
move
1
2
1
7
1
5704
4
5
1
16
2
invoke
1
2
1
7
1
5704
4
5
1
11
2
open
1
50
1
11
1
5704
4
3
1
5704
2
<cmd-line>
1
5704
4
3
2
Guest
2
2
opens the closet door and leaves, closing it behind itself.
4
2
4
3
4
5
1
11
2
announce_all
1
2
1
3
1
49853
4
5
1
20259
2
cuckoo
1
47498
1
20259
1
49853
4
3
1
49853
2
<cmd-line>
1
49853
4
1
2
You hear what sounds like a strange bird song coming from the living room.
4
2
4
3
4
5
1
11
2
announce_all_but
1
2
1
3
1
58053
4
5
1
25489
2
confunc
1
2
1
25489
1
58053
4
3
1
58053
2
<cmd-line>
1
58053
4
2
2
Komrade_Wolfy
2
has connected.
4
2
4
5
4
5
1
11
2
announce_all_but
1
2
1
3
1
58053
4
5
1
58053
2
teleport_messages
1
47
1
3133
1
58053
4
5
1
58053
2
teleport
1
47
1
3133
1
58053
4
5
1
58053
2
@join
1
47
1
3133
1
58053
4
3
1
58053
2
<cmd-line>
1
58053
4
1
2
Komrade_Wolfy teleports out.
4
2
4
3
4
5
1
11
2
announce_all_but
1
2
1
3
1
18308
4
5
1
25489
2
confunc
1
2
1
25489
1
18308
4
3
1
18308
2
<cmd-line>
1
18308
4
2
2
Dafydd
2
has connected.
4
2
4
3
4
5
1
11
2
announce
1
2
1
3
1
18308
4
5
1
11
2
disfunc
1
2
1
11
1
18308
4
3
1
18308
2
<cmd-line>
1
18308
4
3
2
You hear a quiet popping sound;
2
Dafydd
2
has disconnected.
4
2
4
3
4
5
1
11
2
announce
1
2
1
3
1
56289
4
5
1
11
2
confunc
1
2
1
3
1
56289
4
3
1
56289
2
<cmd-line>
1
56289
4
2
2
RPG_GM
2
has connected.
4
2
4
4
4
5
1
11
2
announce
1
2
1
3
1
56289
4
5
1
11
2
disfunc
1
2
1
3
1
56289
4
5
1
11
2
disfunc
1
2
1
11
1
56289
4
3
1
56289
2
<cmd-line>
1
56289
4
2
2
RPG_GM
2
has disconnected.
4
2
4
3
4
5
1
11
2
announce
1
2
1
3
1
53530
4
5
1
11
2
confunc
1
2
1
3
1
53530
4
3
1
53530
2
<cmd-line>
1
53530
4
2
2
D!
2
has connected.
4
2
4
3
4
5
1
11
2
announce
1
2
1
3
1
58320
4
5
1
58320
2
home
1
2
1
6
1
58320
4
3
1
58320
2
<cmd-line>
1
58320
4
2
2
Redback
2
comes home.
4
2
4
5
4
5
1
11
2
announce_all_but
1
2
1
3
1
58320
4
5
1
16
2
move
1
2
1
7
1
58320
4
5
1
16
2
invoke
1
2
1
7
1
58320
4
5
1
11
2
open
1
50
1
11
1
58320
4
3
1
58320
2
<cmd-line>
1
58320
4
3
2
Redback
2
2
opens the closet door and leaves, closing it behind himself.
4
2
4
6
4
5
1
11
2
announce_all_but
1
2
1
3
1
53530
4
5
1
53530
2
teleport_messages
1
47
1
3133
1
53530
4
5
1
53530
2
teleport
1
47
1
3133
1
53530
4
5
1
53530
2
teleport
1
3920
1
33337
1
53530
4
5
1
53530
2
@join
1
47
1
3133
1
53530
4
3
1
53530
2
<cmd-line>
1
53530
4
1
2
D! teleports out.
4
2
4
3
4
5
1
11
2
announce_all
1
2
1
3
1
49853
4
5
1
20259
2
cuckoo
1
47498
1
20259
1
49853
4
3
1
49853
2
<cmd-line>
1
49853
4
1
2
You hear what sounds like a strange bird song coming from the living room.
4
2
4
3
4
5
1
11
2
announce
1
2
1
3
1
56289
4
5
1
11
2
confunc
1
2
1
3
1
56289
4
3
1
56289
2
<cmd-line>
1
56289
4
2
2
RPG_GM
2
has connected.
4
2
4
6
4
5
1
11
2
announce_all_but
1
2
1
3
1
56289
4
5
1
56289
2
teleport_messages
1
47
1
3133
1
56289
4
5
1
56289
2
teleport
1
47
1
3133
1
56289
4
5
1
56289
2
teleport
1
3920
1
33337
1
56289
4
5
1
56289
2
@join
1
47
1
3133
1
56289
4
3
1
56289
2
<cmd-line>
1
56289
4
1
2
RPG_GM teleports out.
4
2
4
3
4
5
1
11
2
announce_all_but
1
2
1
3
1
5790
4
5
1
25489
2
confunc
1
2
1
25489
1
5790
4
3
1
5790
2
<cmd-line>
1
5790
4
2
2
Purple_Guest
2
has connected.
4
2
4
5
4
5
1
11
2
announce_all_but
1
2
1
3
1
5790
4
5
1
5790
2
teleport_messages
1
47
1
3133
1
5790
4
5
1
5790
2
teleport
1
47
1
3133
1
5790
4
5
1
5790
2
@join
1
47
1
3133
1
5790
4
3
1
5790
2
<cmd-line>
1
5790
4
1
2
Purple_Guest teleports out.
4
2
4
3
4
5
1
11
2
announce
1
2
1
3
1
58002
4
5
1
58002
2
home
1
57140
1
49900
1
58002
4
3
1
58002
2
<cmd-line>
1
58002
4
1
2
Morgaine comes home.
4
2
4
3
4
5
1
11
2
announce_all
1
2
1
3
1
58002
4
5
1
58002
2
!quit
1
4292
1
5803
1
58002
4
3
1
58002
2
<cmd-line>
1
58002
4
1
2
quit --Morgaine
4
2
4
3
4
5
1
11
2
announce_all
1
2
1
3
1
58002
4
5
1
58002
2
!jfldj
1
4292
1
5803
1
58002
4
3
1
58002
2
<cmd-line>
1
58002
4
1
2
jfldj --Morgaine
4
2
4
3
4
5
1
11
2
announce
1
2
1
3
1
58002
4
5
1
11
2
disfunc
1
2
1
11
1
58002
4
3
1
58002
2
<cmd-line>
1
58002
4
3
2
You hear a quiet popping sound;
2
Morgaine
2
has disconnected.
4
2
4
7
4
5
1
11
2
announce_all_but
1
2
1
3
1
57490
4
5
1
57490
2
teleport_messages
1
47
1
3133
1
57490
4
5
1
57490
2
teleport
1
47
1
3133
1
57490
4
5
1
57490
2
teleport
1
3920
1
33337
1
57490
4
5
1
57490
2
@go
1
47
1
3133
1
57490
4
5
1
57490
2
@go
1
57490
1
57490
1
57490
4
3
1
57490
2
<cmd-line>
1
57490
4
1
2
You hear a loud *SWOOOOOSHING* sound... You look up and see Tired flying high overhead, in his red & blue *Super-MOOer* costume. He quickly swings in, through an open window, and *SMACKS* into the wall on the opposite side of the room. *Insta-changing* into his secret I.D as mild mannered Tired, he struggles to his feet and bows to all.....
4
2
4
5
4
5
1
11
2
announce_all_but
1
2
1
3
1
56427
4
5
1
52657
2
nuke
1
49725
1
29360
1
56427
4
5
1
52657
2
action
1
49725
1
29360
1
56427
4
5
1
52657
2
action
1
49725
1
29360
1
56427
4
3
1
56427
2
<cmd-line>
1
56427
4
3
2
An disspiritted soul appears in the air and drops of a pile of ashes, from which a figure grows. The incarnated form appears to be
2
2
Skinwalker
4
2
4
6
4
5
1
11
2
announce_all_but
1
2
1
3
1
58287
4
5
1
58287
2
teleport_messages
1
47
1
3133
1
58287
4
5
1
58287
2
teleport
1
47
1
3133
1
58287
4
5
1
58287
2
teleport
1
3920
1
33337
1
58287
4
5
1
58287
2
@go
1
47
1
3133
1
58287
4
3
1
58287
2
<cmd-line>
1
58287
4
1
2
Skinwalker teleports out.
4
2
4
3
4
5
1
11
2
announce
1
2
1
3
1
57490
4
5
1
57490
2
@morph
1
57140
1
49900
1
57490
4
3
1
57490
2
<cmd-line>
1
57490
4
1
2
Tired quickly morphs into HELP!.
4
2
4
3
4
5
1
11
2
announce
1
2
1
3
1
57490
4
5
1
57490
2
@morph
1
57140
1
49900
1
57490
4
3
1
57490
2
<cmd-line>
1
57490
4
1
2
HELP! quickly morphs into Tired.
4
2
4
3
4
5
1
11
2
announce
1
2
1
3
1
57490
4
5
1
57490
2
@morph
1
57140
1
49900
1
57490
4
3
1
57490
2
<cmd-line>
1
57490
4
1
2
Tired quickly morphs into Deiter...
4
2
4
3
4
5
1
11
2
announce
1
2
1
3
1
57490
4
5
1
57490
2
@morph
1
57140
1
49900
1
57490
4
3
1
57490
2
<cmd-line>
1
57490
4
1
2
Deiter.. quickly morphs into Tired.
4
2
4
7
4
5
1
11
2
announce_all_but
1
2
1
3
1
57490
4
5
1
57490
2
teleport_messages
1
47
1
3133
1
57490
4
5
1
57490
2
teleport
1
47
1
3133
1
57490
4
5
1
57490
2
teleport
1
3920
1
33337
1
57490
4
5
1
57490
2
@go
1
47
1
3133
1
57490
4
5
1
57490
2
@go
1
57490
1
57490
1
57490
4
3
1
57490
2
<cmd-line>
1
57490
4
1
2
Tired *instachanges* into *Super-MOOer*, leaps *HEROICALLY* through an open window, and quickly flies far away. (You feel *safe* in the knowledge that he is out there making the VR-world secure for peace, freedom, and deMOOcracy.....)
4
2
4
3
4
5
1
11
2
announce_all
1
2
1
3
1
49853
4
5
1
20259
2
cuckoo
1
47498
1
20259
1
49853
4
3
1
49853
2
<cmd-line>
1
49853
4
1
2
You hear what sounds like a strange bird song coming from the living room.
38
4
0
30
38
4
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
2
%t (%[#t]) is a guest character.
38
5
5
38
5
5
38
5
5
38
4
5
38
4
5
2
1
0
0
2
0
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
0
0
2
0
5
38
5
0
1
38
5
5
38
5
5
38
5
5
38
5
5
2
1
5
38
4
4
1
2
Generic Guest
2
1
4
1
2
By definition, guests appear nondescript.
38
5
4
2
0
25940
0
743667542
2
1
#34
0
2
-1
-1
-1
1
-1
-1
0
0
4
0
0
2
4
5
2
5
5
2
5
4
2
0
0
0
0
2
1
#35
sequence utilities
16
38
-1
-1
-1
1
-1
39
17
add remove
38
173
-1
contains
38
173
-1
complement
38
173
-1
union intersection
38
173
-1
tostr
38
173
-1
for
38
173
-1
extract
38
173
-1
tolist
38
173
-1
from_list
38
173
-1
from_sorted_list
38
173
-1
first
38
173
-1
last
38
173
-1
size
38
173
-1
from_string
38
173
-1
firstn
38
173
-1
lastn
38
173
-1
range
38
173
-1
0
4
5
38
4
4
3
2
sequence utilities
2
seq_utils
2
squ
38
5
4
35
2
A sequence is a set of integers (*)
2
This package supplies the following verbs:
2
2
:add (seq,f,t) => seq with [f..t] interval added
2
:remove (seq,f,t) => seq with [f..t] interval removed
2
:range (f,t) => sequence corresponding to [f..t]
2
{} => empty sequence
2
:contains (seq,n) => n in seq
2
:size (seq) => number of elements in seq
2
:first (seq) => first integer in seq or E_NONE
2
:firstn (seq,n) => first n integers in seq (as a sequence)
2
:last (seq) => last integer in seq or E_NONE
2
:lastn (seq,n) => last n integers in seq (as a sequence)
:for([n,]seq,obj,verb,@args) => for s in (seq) obj:verb(s,@args); endfor
2
2
:tolist(seq) => list corresponding to seq
2
:tostr(seq) => contents of seq as a string
2
:from_list(list) => sequence corresponding to list
2
:from_sorted_list(list) => sequence corresponding to list (assumed sorted)
2
:from_string(string) => sequence corresponding to string
2
2
For boolean expressions, note that
2
the representation of the empty sequence is {} (boolean FALSE) and
2
all non-empty sequences are represented as nonempty lists (boolean TRUE).
2
2
The representation used works better than the usual list implementation for sets consisting of long uninterrupted ranges of integers.
2
For sparse sets of integers the representation is decidedly non-optimal (though it never takes more than double the space of the usual list representation).
2
2
(*) Actually what this package implements is sets of integers-mod-2^32, but this assumes the underlying machine on which the server runs has 32-bit integers. If not, you need to change this.maxneg to be the largest negative ("smallest"?) integer available.
38
5
4
2
0
10857
0
743841611
2
1
#36
Quota-Log
0
38
-1
-1
-1
46
-1
31
1
init_for_core
38
173
-1
0
18
4
0
38
5
0
-1464686259
38
1
4
0
38
0
0
1
38
5
2
%n (%#) can't send to moderated list %t (%[#t]) directly.
38
5
4
0
38
5
4
0
38
5
4
1
1
2
38
1
4
2
1
2
1
36
38
1
0
2592000
38
5
0
-1464686259
38
1
4
2
4
2
0
1
4
6
0
-1465032313
2
Bob (#2)
2
*Quota-Log (#36)
2
@quota builder (#228) 200 (from 0)
2
2
Reason for quota increase: (none).
4
2
0
2
4
6
0
-1464686259
2
Bob (#2)
2
*Quota-Log (#36)
2
@quota Bob (#2) 100 (from 0)
2
2
Reason for quota increase: (none).
38
0
5
38
5
5
38
5
5
38
4
4
3
2
Quota-Log
2
Quota_Log
2
QL
38
1
2
Record of whose quota has been messed with and why.
38
5
4
2
0
72513
0
743970005
2
1
#37
you
16
38
-1
-1
-1
76
-1
-1
3
verb_sub
38
173
-1
say_action
38
165
-1
fixpos
38
173
-1
1
conjugations
16
4
4
4
2
2
is
2
are
4
2
2
was
2
were
4
2
2
does
2
do
4
2
2
has
2
have
38
1
2
2nd
38
5
2
Yours
38
5
2
yours
38
5
2
Your
38
5
2
your
38
5
2
Yourself
38
5
2
yourself
38
5
2
You
38
5
2
you
38
5
2
You
38
5
2
you
38
5
5
38
4
4
1
2
you
38
5
4
1
2
an object useful for pronoun substitution
38
5
4
2
0
3130
0
743624380
2
1
#38
Hacker
19
38
-1
-1
-1
59
-1
71
0
0
61
5
38
1
5
38
5
5
38
5
5
38
5
5
38
5
4
0
38
1
5
2
0
5
38
5
5
2
0
5
2
1
0
0
38
5
5
38
5
5
38
1
5
38
1
5
38
0
5
38
1
5
38
5
0
0
2
1
5
38
1
1
18105
38
4
5
2
0
5
2
0
5
38
5
4
0
38
4
5
38
5
4
0
38
4
5
38
4
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
4
2
0
0
0
0
38
4
5
38
4
0
750802956
2
1
0
10628
2
0
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
1
-1
38
5
0
0
2
0
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
0
0
2
1
5
38
4
4
1
2
Hacker
2
1
2
You see a player who should type '@describe me as ...'.
38
5
4
2
0
1598
0
744012273
2
1
#39
Generic Database
144
38
-1
-1
-1
1
41
32
19
find find_key
38
173
-1
find_exact
38
173
-1
find_all find_all_keys
38
173
-1
_only
38
173
-1
_every
38
173
-1
_every_key
38
173
-1
insert
38
173
-1
delete
38
173
-1
delete2
38
173
-1
set_node
38
173
-1
make_node
2
173
-1
kill_node
2
173
-1
clearall
2
173
-1
clearall_big
38
173
-1
_kill_subtrees
38
173
-1
depth
38
173
-1
count_entries
38
173
-1
count_chars
38
173
-1
count
38
153
3
3
node_perms
data
7
2
r
38
5
0
4
38
1
4
4
2
2
4
0
4
0
38
0
5
38
4
4
1
2
Generic Database
38
5
2
A generic `database' (well, really more like a string-indexed array if you want the truth...). See `help $generic_db' for details.
38
5
4
2
0
17561
0
743929162
2
1
#40
Everyman
19
38
-1
-1
-1
6
-1
33
4
eval
2
165
-1
moveto
38
173
-1
eval_d
2
165
-1
call_verb
2
173
-1
0
56
4
0
38
1
5
2
0
5
38
5
2
$no_one
2
0
0
2147483647
2
1
0
0
38
5
5
38
5
5
38
1
5
38
1
5
38
0
5
38
1
5
38
5
4
0
2
1
5
38
1
5
38
4
5
2
0
5
2
0
5
38
5
4
0
38
4
5
38
5
5
38
4
5
38
4
5
38
5
5
38
5
5
38
5
5
38
5
2
... no one out there to see it.
38
5
5
38
5
4
1
1
-1
38
5
5
38
5
5
38
5
5
38
4
5
38
4
0
750802956
2
1
0
0
2
0
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
1
-1
38
5
0
0
2
0
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
0
0
2
1
5
38
4
4
4
2
Everyman
2
everyone
2
no_one
2
noone
2
1
2
... He never even got to go to Disneyland.
38
5
4
2
0
3148
0
743839366
2
1
#41
Player Database
16
38
-1
-1
-1
39
-1
27
5
load
38
173
-1
check
38
45
-1
init_for_core
38
173
-1
available
38
173
-1
suspend_restart
38
173
-1
17
stupid_names
frozen
reserved
H
e
n
P
U
D
Du
b
de
dem
m
t
Th
Tr
24
4
27
2
with
2
using
2
at
2
to
2
in
2
into
2
on
2
onto
2
upon
2
out
2
from
2
inside
2
over
2
through
2
under
2
underneath
2
beneath
2
behind
2
beside
2
for
2
about
2
is
2
as
2
off
2
of
2
me
2
you
38
5
0
0
38
5
4
0
38
1
4
4
2
2
4
2
2
Hacker
2
housekeeper
4
2
1
38
1
71
38
1
4
4
2
very
2
4
2
2
everyone
2
Everyman
4
2
1
40
1
40
38
1
4
4
2
o
2
4
2
2
noone
2
no_one
4
2
1
40
1
40
38
1
4
4
2
assionate
2
4
2
2
Passionate
2
Passionate_Guest
4
2
1
84
1
84
38
1
4
4
2
gly
2
4
2
2
Ugly
2
Ugly_Guest
4
2
1
85
1
85
38
1
4
4
2
2
ue
4
0
4
0
38
1
4
4
2
sty
2
4
2
2
Dusty
2
Dusty_Guest
4
2
1
86
1
86
38
1
4
4
2
2
4
3
2
Bob
2
Bill_Enright
2
builder
4
3
1
2
1
77
1
228
38
1
4
4
2
2
m
4
1
2
Dead_Meat
4
1
1
79
38
1
4
4
2
olish
2
4
2
2
demolished
2
demolish
4
2
1
77
1
77
38
1
4
4
2
a
2
4
2
2
man
2
Mark
4
2
1
77
1
154
38
1
4
4
2
2
hr
4
0
4
0
38
1
4
4
2
e_
2
4
2
2
the_
2
The_Demolished_Man
4
2
1
77
1
77
38
1
4
4
2
ygve
2
4
2
2
Trygve_Isaacson
2
Trygve
4
2
1
337
1
337
38
1
5
38
5
5
38
1
4
4
2
2
HenPUDbmt
4
4
2
LiverSpot
2
shelby
2
John_Louch
2
Guest
4
4
1
147
1
346
1
147
1
83
38
0
5
38
4
4
3
2
player_db
2
plyrdb
2
pdb
38
5
4
2
2
A database containing all player names and aliases.
2
See `help $player_db' for more information.
38
5
4
2
0
475926
0
743670063
2
1
#42
permissions utilities
24
2
-1
-1
-1
1
-1
60
4
controls
2
173
-1
apply
38
173
-1
caller
2
173
-1
controls_prop controls_property
2
165
-1
0
4
5
2
4
5
2
5
5
2
5
4
2
0
1842
0
743619438
2
1
#43
gender utilities
16
38
-1
-1
-1
1
-1
76
8
set
2
165
-1
add
2
173
-1
get_pronoun
38
165
-1
get_conj*ugation
38
165
-1
_verb_plural
38
173
-1
_verb_singular
38
165
-1
_do
38
165
-1
pronoun_sub
2
173
-1
15
is_plural
have
be
pronouns
genders
ps
po
pp
pq
pr
psc
poc
ppc
pqc
prc
19
4
11
0
0
0
0
0
0
0
0
0
0
0
0
0
1
0
1
0
1
0
1
0
1
38
5
4
11
2
has
2
has
2
has
2
has
2
has
2
has
2
have
2
have
2
have
2
have
2
have
38
5
4
11
2
is
2
is
2
is
2
is
2
is
2
is
2
are
2
am
2
are
2
are
2
are
38
5
4
10
2
ps
2
po
2
pp
2
pq
2
pr
2
psc
2
poc
2
ppc
2
pqc
2
prc
38
5
4
10
2
neuter
2
male
2
female
2
either
2
Spivak
2
splat
2
plural
2
egotistical
2
royal
2
2nd
38
5
4
10
2
it
2
he
2
she
2
s/he
2
e
2
*e
2
they
2
I
2
we
2
you
38
5
4
10
2
it
2
him
2
her
2
him/her
2
em
2
h*
2
them
2
me
2
us
2
you
38
5
4
10
2
its
2
his
2
her
2
his/her
2
eir
2
h*
2
their
2
my
2
our
2
your
38
5
4
10
2
its
2
his
2
hers
2
his/hers
2
eirs
2
h*s
2
theirs
2
mine
2
ours
2
yours
38
5
4
10
2
itself
2
himself
2
herself
2
(him/her)self
2
eirself
2
h*self
2
themselves
2
myself
2
ourselves
2
yourself
38
5
4
10
2
It
2
He
2
She
2
S/He
2
E
2
*E
2
They
2
I
2
We
2
You
38
5
4
10
2
It
2
Him
2
Her
2
Him/Her
2
Em
2
H*
2
Them
2
Me
2
Us
2
You
38
5
4
10
2
Its
2
His
2
Her
2
His/Her
2
Eir
2
H*
2
Their
2
My
2
Our
2
Your
38
5
4
10
2
Its
2
His
2
Hers
2
His/Hers
2
Eirs
2
H*s
2
Theirs
2
Mine
2
Ours
2
Yours
38
5
4
10
2
Itself
2
Himself
2
Herself
2
(Him/Her)self
2
Eirself
2
H*self
2
Themselves
2
Myself
2
Ourselves
2
Yourself
38
5
5
38
4
4
1
2
Gender_Utilities
38
5
4
18
2
Defines the list of standard genders, the default pronouns for each, and routines for adding or setting pronoun properties on any gendered object.
2
2
Properties:
2
.genders -- list of standard genders
2
.pronouns -- list of pronoun properties
2
.ps .po .pp .pq .pr .psc .poc .ppc .pqc .prc
2
-- lists of pronouns for each of the standard genders
2
2
If foo is of gender this.gender[n],
2
then the default pronoun foo.p is this.p[n]
2
(where p is one of ps/po/pp/pq...)
2
2
Verbs:
2
:set(object,newgender) -- changes pronoun properties to match new gender.
2
:add(object[,perms[,owner]]) -- adds pronoun properties to object.
2
2
:get_pronoun (which,object) -- return pronoun for a given object
from_day (day_of_week, which) => time-since-1970 for the given day*
2
from_month (month, which) => time-since-1970 for the given month*
2
(* the first midnight of that day/month)
2
parse_english_time_interval("n1 u1 n2 u2...")
2
=> seconds in interval
2
seconds_until_time("hh:mm:ss") => number of seconds from now until then
2
seconds_until_date("month",day,"hh:mm:ss",flag
2
=> number of seconds from now until then
2
(see verb help for details)
2
2
Converting to some standard English formats
2
day ([c]time) => what day it is
2
month ([c]time) => what month it is
2
ampm ([c]time[, precision]) => what time it is, with am or pm
2
mmddyy ([c]time) => date in format MM/DD/YY
2
ddmmyy ([c]time) => date in format DD/MM/YY
2
2
Substitution
2
time_sub (string, time) => substitute time information
2
2
Miscellaneous
2
sun ([time]) => angle between sun and zenith
2
dst_midnight (time)
38
5
4
2
0
21697
0
743625666
2
1
#45
Editor Help
16
38
-1
-1
-1
32
-1
30
0
43
summary
edit-index
emote
say
delete
insert
view
depublish
perish
unpublish
publish
mode
enter
quit
unsubscribe
subscribe
reply-to
moo
find
edit
compile
save
showlists
subject
to
also-to
who
print
send
list
next
prev
subst
join
fill
move
copy
what
abort
done
pause
ranges
cc
48
4
11
2
You are inside an editor. Do
2
2
look -- for list of commands
2
what -- to find out what you're editing.
2
list -- to list out some portion of the text
2
say / emote -- to add new text to whatever you're editing
2
2
help edit-index -- for a full list of editor help topics
2
help editors -- for a general discussion about editors
2
help moo -- for the general MOO help summary (i.e., what you get by
2
typing `help' with no arguments from outside the editor).
38
5
4
2
2
*index*
2
Editor Help Topics
38
5
4
19
2
Syntax: emote <text>
2
:<text>
2
2
(EDITOR)
2
Appends <text> to the end of the line before the insertion point.
2
The second form is equivalent to the first except that it doesn't strip leading blanks off of <text> (just as with the normal `emote' and `:' commands).
2
The insertion point is left unmoved.
2
2
>list .
2
_37_ Hello there
2
^38^ Oh, I'm fine.
2
>:, how are you
2
Appended to line 37.
2
>:?
2
Appended to line 37.
2
>list .
2
_37_ Hello there, how are you?
2
^38^ Oh, I'm fine.
2
38
5
4
17
2
Syntax: say <text>
2
"<text>
2
2
(EDITOR)
2
Adds <text> to whatever you are editing.
2
The second form is equivalent to the first except in that it doesn't strip leading blanks off of <text> (just as with the normal `say' and `"' commands).
2
2
The added text appears as a new line at the insertion point. The insertion point, in turn, gets moved so as to be after the added text. For example:
2
2
>"first line
2
Line 1 added.
2
>" second line"
2
Line 2 added.
2
>list
2
1: first line
2
__2_ second line"
2
^^^^
38
5
4
5
2
Syntax: del*ete [<range>]
2
2
(EDITOR)
2
Deletes the specified range of lines
2
<range> defaults to the line *before* the current insertion point.
38
5
4
21
2
Syntax: ins*ert [<ins>] ["<text>]
2
. (`.' == `insert' without arguments)
2
2
(EDITOR)
2
Many editor commands refer to an "insertion point" which is (usually) the place right below where the most recent line was inserted. The insertion point should really be thought of as sitting *between* lines. In listings, the line above the insertion point is marked with `_' while the one below is marked with `^'.
2
2
The `insert' command, when given an argument, sets the insertion point.
2
If <text> is provided, a new line will be created and inserted as with `say'.
2
<ins>, both here and in other commands that require specifying an insertion point (e.g., copy/move), can be one of
2
2
^n above line n
2
n above line n
2
_n below line n
2
$ at the end
2
^$ before the last line
2
n^$ n lines before the end
2
. the current insertion point (i.e., `insert .' is a no-op)
2
+n n lines below the current insertion point.
2
-n n lines above the current insertion point.
2
2
For the truly perverse, there are other combinations that also work due to artifacts of the parsing process, but these might go away...
38
5
4
10
2
Syntax: view <player> [<range>] [nonum]
2
view
2
2
Prints some subset of the specified player's text.
2
Said player must have previously made his text readable with `publish'.
2
<ranges> are specified as in other commands (see `help ranges').
2
References to the insertion point refer to wherever the other player has set his/her insertion point; you have no control over it.
2
The default range is as in list.
2
2
If no arguments are given, this lists all of the players that have published anything in this editor.
38
5
4
2
2
*forward*
2
unpublish
38
5
4
2
2
*forward*
2
unpublish
38
5
4
5
2
Syntax: unpub*lish
2
depub*lish
2
perish
2
2
This command reverses the effects of `publish', making your text readable only by you.
38
5
4
6
2
Syntax: pub*lish
2
2
By default, only you (and wizards) can read the text you are editing.
2
This command makes your text readable by the entire world (see `help view').
2
This is useful if you need help from someone or if you just want to show off your programming acumen.
2
Use `unpublish' to make your text private again.
38
5
4
12
2
(NOTE EDITOR)
2
Syntax: mode
2
mode string
2
mode list
2
2
There are (currently) two modes the note editor can be in.
2
One is string mode, in which if the text being edited is one line or less,
2
it will be saved as a single string (or an empty string) rather than as a list.
2
The other is list mode, in which text is always saved as a list of strings.
2
The mode is set when the text is first loaded (string mode if the text is a string, list mode otherwise), but can be changed using this command.
2
2
The first form above (i.e., without any arguments) reports the current mode.
38
5
4
12
2
Syntax: enter
2
2
(EDITOR)
2
Enters a sequence of lines at the insertion point (see `help insert').
2
This is similar to .program in that every line you type after the `enter' command is inserted verbatim into the text until you type a line with a single period (`.') on it. This command is essentially for if you don't like the idea of putting " at the beginning of each line you type. The only exceptions, i.e., lines that are not entered verbatim (aside from the `.' line), are
2
2
- If you type a line whose sole text is `@abort',
2
that aborts this command without making any changes to the text.
2
- Any line whose first nonblank character is `.' and has additional text
2
is entered but with its first `.' stripped off.
2
2
Thus, to enter a line whose text is `@abort', you could enter it as `.@abort'.
38
5
4
7
2
Syntax: q*uit
2
done
2
pause
2
2
(EDITOR)
2
Leaves the editor. If you have unsaved text it will be there when you return (and in fact you will not be able to do anything else with this editor until you 'abort' or save the text).
2
38
5
4
9
2
Syntax: unsubscribe from <list-name>
2
unsubscribe <name>... from <list-name>
2
2
(MAILROOM)
2
Remove yourself from the given mailing list.
2
The second form removes arbitrary people from a mailing list.
2
You can only do this if you own whatever is being removed or you own the list.
2
2
Use the `who' command to determine if you are on a given mailing list.
38
5
4
11
2
Syntax: subscribe to <list-name>
2
subscribe [<name>...] to <list-name>
2
2
(MAILROOM)
2
Add yourself to the given mailing list.
2
The second form adds arbitrary people to a mailing list.
2
You can only do this if you own the list or if it is listed as [Public] and you own whatever is being added.
2
2
The first form of this command is probably obsolete since if <list-name> is public, you can already read it via `@mail on *<list-name>' and it's much better for the MOO if you do so. `@mail-option +sticky' makes this even easier.
2
2
Use the `who' command to determine if you are on a given mailing list.
38
5
4
11
2
Syntax: reply-to [<recipients>]
2
2
(MAIL ROOM)
2
Reports the current contents of the Reply-to: field of your message.
2
With arguments, adds (or changes) the Reply-to: field.
2
2
When someone @answers a message, the Reply-to: field is checked first when determining to whom the reply should be sent --- see `help @answer'.
2
2
To clear the Reply-to: field, do
2
2
reply-to ""
38
5
4
2
2
*pass*
2
38
5
4
9
2
Syntax: f*ind /<str>[/[c][<ins>]]
2
/<str>[/[c][<ins>]]
2
2
Searches for the first line after <ins> containing <str>. <ins> defaults to the current insertion point (see `help insert' for how to specify other places). With the first form, any character (not just `/') may be used as a delimiter.
2
For the second form, you must use '/'.
2
2
The 'c' flag, if given, indicates that case is to be ignored while searching.
2
2
[Bug: With the second form, there are problems if the search string contains quotes, backslashes or a run of spaces. The first whitespace will always be treated as a single space. Likewise, quotes and backslashes occuring in the first word of the command (i.e., the "verb") need to be escaped with `\'. Unfortunately it will not be possible to fix this until we get a new command parser.]
38
5
4
17
2
(VERB EDITOR)
2
Syntax: edit <object>:<verb>
2
2
Changes what verb you are editing and loads the code for that verb
2
into the editor.
2
Equivalent to @edit <object>:<verb>.
2
2
(NOTE EDITOR)
2
Syntax: edit <note-object>
2
edit <object>.<property>
2
2
Changes to a different note or a different object text property and
2
loads its text into the editor.
2
These are equivalent to @notedit <note> or @notedit <object>.<property>
2
respectively.
2
2
For both the verb-editor and note-editor commands, <object> will match on the room you came from, though if the room you came from was another editor, then all bets are off...
38
5
4
5
2
Syntax: compile [as <object>:<verb>]
2
2
(VERB EDITOR)
2
Installs the new program into the system if there are no syntax errors.
2
If a new object:verb is specified and actually turns out to exist, that <object>:<verb> becomes the default for subsequent compilations.
38
5
4
5
2
Syntax: save [<note-object>]
2
save [<object>.<property>]
2
2
(NOTE EDITOR)
2
Installs the freshly edited text. If <note> or <object>.<property> is specified, text is installed on that note or property instead of the original one. In addition the new note or property becomes the default for future save commands.
38
5
4
4
2
Syntax: showlists
2
2
(MAIL ROOM)
2
Print a list of the publically available mailing lists/archives and other non-player entities that can receive mail.
38
5
4
4
2
Syntax: subj*ect [<text>]
2
2
(MAIL ROOM)
2
Specifies a Subject: line for your message. If <text> is "", the Subject: line is removed.
38
5
4
6
2
Syntax: to [<recipients>]
2
2
(MAIL ROOM)
2
Specifies a new set of recipients (the To: line) for your message.
2
Recipient names not beginning with * are matched against the list of players.
2
Recipient names beginning with * are interpreted as mailing-lists/archives/other types of non-person addresses and are matched against all such publically available objects (see `help showlists'). If the list you want to use isn't in the database (i.e., isn't located in the database ($mail_agent)) you need to refer to it by object id.
38
5
4
7
2
Syntax: also-to [<recipients>]
2
2
Synonym: cc
2
2
(MAIL ROOM)
2
Adds additional recipients to the To: line of your message.
2
Same rules apply as for the `to' command.
38
5
4
7
2
Syntax: who
2
who <rcpt>...
2
2
(MAIL ROOM)
2
Invokes $mail_agent's mail-forwarding tracer and determines who (or what) is actually going to receive your message. The resulting list will not include destinations that will simply forward the message without :receive_message()'ing a copy for themselves.
2
2
The second form expands an arbitrary list of recipients, for if e.g., you're curious about the members of particular mailing list.
38
5
4
6
2
Syntax: pri*nt
2
2
Display your text without line numbers.
2
2
(MAIL ROOM)
2
Display your message including headers.
38
5
4
8
2
Syntax: send
2
2
(MAIL ROOM)
2
Send the message, then exit the mail room if all of the addresses on the To: line turn out to be valid and usable (you can use the `who' command to check these in advance, though the status of recipients may change without warning).
2
If the To: line turns out to contain invalid recipients or recipients that are not usable by you, the message will not be sent and you will remain in the mail room.
2
It may be, however, that valid addresses on your To: line will forward to other addresses that are bogus; you'll receive warnings about these, but in this case your message will still be delivered to those addresses that are valid.
2
2
Note that there may be particularly long delays when sending to recipients with large forwarding/notification lists or when sending on occasions when the MOO is heavily loaded in general. In such a case, it is possible to continue editing the message while the send is in progress; any such edits affect only the text in the editor. In particular, the text of the message currently being sent remains as it was when you first typed the send command. However, any editing will mark the text as "changed" meaning that you will need to explicitly `abort' or `quit' in order to leave the mail room even if the send concludes successfully.
38
5
4
8
2
Syntax: lis*t [<range>] [nonum]
2
2
Prints some subset of the current verb text.
2
The default range is some reasonable collection of lines around the current insertion point: currently this is 8_-8^, ie., 8 lines above the insertion point to 8 lines below it unless this runs up against the beginning or end of file, in which case we just take the first or last 16 lines, or just 1-$ if there aren't that many. (See `help ranges' for how to specify line numbers and ranges.)
2
2
`nonum' prints without line numbers.
2
2
Yes, window heights will be customizable some day.
38
5
4
4
2
Syntax: n*ext [n] ["<text>]
2
2
Moves the insertion point down n lines. If <text> is provided, inserts a new line there just like `say'.
2
Equivalent to `insert +n'. As one might expect, n defaults to 1.
38
5
4
4
2
Syntax: p*rev [n] ["<text>]
2
2
Moves the insertion point up n lines. If <text> is provided, a new line is inserted as with `say'.
2
Equivalent to `insert -n'. As one might expect, n defaults to 1.
38
5
4
13
2
Syntax: s*ubst/<str1>/<str2>[/[g][c][<range>]]
2
2
Substitutes <str2> for <str1>, in all of the lines of <range>.
2
Any character (not just `/') may be used to delimit the strings.
2
If <str1> is blank, <str2> is inserted at the beginning of the line.
2
(For inserting a string at the end of a line use emote/:).
2
2
Normally, only one substitution is done per line in the specified range, but if the 'g' flag is given, *all* instances of <str1> are replaced.
2
The 'c' flag indicates that case is not significant when searching for substitution instances.
2
<range> defaults to the line *before* the insertion point.
2
2
You do *not* need a space between the verb and the delimeter before <str1>.
2
[Bug: If you omit the space and the first whitespace in <str1> is a run of more than one space, those spaces get treated as one. Likewise, quotes and backslashes occuring in the first word of the command (i.e., the "verb") need to be escaped with `\'. The fix on this will have to wait for a new command parser.]
38
5
4
4
2
Syntax: join [<range>]
2
joinliteral [<range>]
2
2
combines the lines in the specified range. Normally, spaces are inserted and double space appears after periods and colons, but 'joinliteral' (abbreviates to 'joinl') supresses this and joins the lines as is. <range> defaults to the two lines surrounding the insertion point.
38
5
4
3
2
Syntax: fill [<range>] [@ c]
2
2
combines the specified lines as in join and then splits them so that no line is more than c characters (except in cases of pathological lines with very long words). c defaults to 70. <range> defaults to the single line preceding the insertion point.
38
5
4
6
2
Syntax: m*ove [<range>] to <ins>
2
2
Moves the range of lines to place specified by <ins>.
2
If <ins> happens to be the current insertion point, the insertion point is moved to the end of the freshly moved lines. If the range of lines contains the insertion point, the insertion point is carried over to the range's new location.
2
2
See `help insert' for a list of possibilities for <ins>.
38
5
4
7
2
Syntax: c*opy [<range>] to <ins>
2
2
Copies the specified range of lines to place given by <ins>.
2
If <ins> happens to be the current insertion point, the insertion
2
point moves to the end of the inserted lines.
2
2
See `help insert' for a list of possibilities for <ins>.
38
5
4
3
2
Syntax: w*hat
2
2
Prints information about the editing session.
38
5
4
3
2
Syntax: abort
2
2
Abandons this editing session and any changes.
38
5
4
2
2
*forward*
2
quit
38
5
4
2
2
*forward*
2
quit
38
5
4
20
2
Most editor commands act upon a particular range of lines.
2
Essentially, one needs to specify a first line and a last line.
2
Line numbers may be given in any of the following forms
2
2
n (i.e., the nth line of text)
2
n^ n-th line after/below the current insertion point
2
n_ n-th line before/above the current insertion point
2
n$ n-th line before the end.
2
2
In the latter three, n defaults to 1, so that `^' by itself refers to the line below the current (i.e., the line that gets `^' printed before it), and likewise for `_' while `$' refers to the last line. Note that the usage depends on whether you are specifying a line or an insertion point (space between lines). `^5' is the space above/before line 5, while `5^' is the fifth line after/below the current insertion point.
2
2
Ranges of lines may be specified in any of the
2
following ways:
2
2
<line> just that line
2
from <line> to <line> what it says; the following two forms are equivalent:
2
<line>-<line>
2
<line> <line>
2
2
With the `from l to l' form, either the from or the to can be left off and it will default to whatever is usual for that command (usually a line above or below the insertion point). Actually I was thinking of punting the `from'/`to' specifications entirely because they're so verbose. Opinions?
%n (%#) can't send to moderated list %t (%[#t]) directly.
38
5
4
0
38
5
4
0
38
5
4
0
38
1
2
%t (%[#t]) is a generic recipient.
38
1
0
2592000
38
5
0
0
38
1
4
0
38
0
0
0
38
5
0
0
38
5
5
38
4
4
1
2
Generic Mail Recipient
38
1
2
This can either be a mailing list or a mail folder, depending on what mood you're in...
38
5
4
2
0
17791
0
743668049
2
1
#47
Mail Distribution Center
16
38
-1
31
-1
1
-1
46
46
resolve_addr
38
173
-1
sends_to
38
173
-1
send_message
38
173
-1
raw_send
2
173
-1
mail_forward mail_notify
38
173
-1
touch
38
173
-1
look_self
38
173
-1
accept
38
173
-1
check_names
38
173
-1
match
38
173
-1
match_recipient
38
173
-1
match_failed
38
173
-1
make_message
38
173
-1
name
38
173
-1
name_list
38
173
-1
parse_address_field
38
173
-1
display_seq_full
2
173
-1
display_seq_headers
2
173
-1
rm_message_seq
2
165
-1
undo_rmm
2
173
-1
expunge_rmm list_rmm
2
173
-1
renumber
2
173
-1
msg_summary_line
38
173
-1
msg_summary_line(slow)
38
173
-1
parse_message_seq
2
173
-1
_parse_from _parse_to
38
173
-1
_parse_date
38
173
-1
new_message_num
2
173
-1
length_all_msgs
2
173
-1
length_date_le
2
173
-1
length_date_gt
2
173
-1
length_num_le
2
173
-1
exists_num_eq
2
173
-1
from_msg_seq
2
173
-1
%from_msg_seq
2
173
-1
to_msg_seq
2
173
-1
%to_msg_seq
2
173
-1
subject_msg_seq
2
173
-1
body_msg_seq
2
173
-1
messages_in_seq
2
173
-1
__convert_new
2
173
-1
to_text
38
173
-1
is_readable_by is_writable_by is_usable_by
38
173
-1
raw_send(new)
2
169
-1
reserved_pattern
38
173
-1
is_recipient
38
165
-1
3
options
reserved_patterns
total_recipients
7
4
11
2
include
2
noinclude
2
all
2
sender
2
nosubject
2
expert
2
enter
2
sticky
2
@mail
2
manymsgs
2
replyto
38
5
4
2
4
2
2
^Petition:%|^Ballot:%|^P:%|^B:
1
33842
4
2
2
^Dispute:%|^D:
1
34809
38
1
4
10
0
24051
0
1399
0
313
0
90
0
46
0
12
0
15
0
6
0
8
0
55
38
5
5
38
4
4
2
2
Mail Distribution Center
2
Postmaster
38
5
4
5
2
This is the database of mailing-list/mail-folder objects.
2
The basic procedure for creating a new list/folder is to create a child of $mail_recipient (Generic Mail Recipient) assign it a suitable name&aliases, set a suitable .mail_forward/.mail_notify (or create suitable :mail_forward() and :mail_notify() verbs) and then teleport it here.
2
2
Avaliable aliases:
2
38
5
4
2
0
53082
0
743668038
2
1
#48
Mail Room
16
38
-1
-1
-1
51
-1
-1
24
working_on
38
165
-1
parse_invoke
38
173
-1
init_session
38
173
-1
pri*nt
38
25
-1
message_with_headers
38
173
-1
subj*ect:
38
89
-2
set_subject
38
173
-1
to*:
38
89
-2
also*-to: cc*:
38
89
-2
parse_recipients
38
173
-1
recipient_names
38
173
-1
make_message
38
173
-1
name_list
38
173
-1
parse_msg_headers
38
173
-1
check_answer_flags
38
173
-1
reply-to*: replyto*:
38
89
-2
send
2
9
-1
who
38
29
-1
showlists
38
25
-1
subsc*ribe
38
89
1
unsubsc*ribe
38
89
5
parse_msg_headers(slow)
38
173
-1
retain_session_on_exit
38
173
-1
no_littering_msg
38
173
-1
4
replytos
recipients
subjects
sending
42
4
0
38
0
4
0
38
0
4
0
38
0
4
0
38
0
4
0
38
1
4
0
38
1
4
2
4
12
2
say
2
emote
2
lis*t
2
ins*ert
2
n*ext,p*rev
2
enter
2
del*ete
2
f*ind
2
s*ubst
2
m*ove,c*opy
2
join*l
2
fill
4
11
2
w*hat
2
subj*ect
2
to
2
also-to
2
reply-to
2
showlists,unsubscribe
2
who
2
pri*nt
2
send
2
abort
2
q*uit,done,pause
38
5
1
45
38
5
2
Message body is empty.
38
5
4
8
4
2
2
subj*ect
2
[<text>]
4
2
2
to
2
[<rcpt>..]
4
2
2
also-to
2
[<rcpt>..]
4
2
2
reply-to
2
[<rcpt>..]
4
2
2
who
2
[<rcpt>..]
4
2
2
pri*nt
2
4
2
2
send
2
4
2
2
showlists,unsubscribe
2
38
5
0
0
38
1
0
1
38
5
2
You need to either SEND it or ABORT it before you can start another message.
38
5
4
8
4
2
2
sending
0
0
4
2
2
replytos
4
0
4
2
2
recipients
4
0
4
2
2
subjects
2
4
2
2
texts
4
0
4
2
2
changes
0
0
4
2
2
inserting
0
1
4
2
2
readable
0
0
38
1
2
%N flattens out into a largish 29 cent postage stamp and floats away.
38
5
2
A largish 29 cent postage stamp floats into the room and fattens up into %n.
38
5
4
4
2
Saving your message so that you can finish it later.
2
To come back, give the `@send' command with no arguments.
2
Please come back and SEND or ABORT if you don't intend to be working on this
2
message in the immediate future. Keep Our MOO Clean! No Littering!
38
5
5
38
5
5
38
5
2
You're not editing anything!
38
5
4
0
38
0
4
0
38
1
4
0
38
0
4
0
38
0
4
0
38
1
2
%L [mailing]
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
4
0
38
4
1
-1
38
5
0
1248352381
38
5
5
38
4
5
38
5
5
38
5
5
38
4
4
1
2
Mail Room
38
5
5
38
5
4
2
0
26737
0
743667582
2
1
#49
Note Editor
16
38
-1
-1
-1
51
-1
48
11
e*dit
38
25
-1
save
38
25
-1
init_session
38
173
-1
working_on
38
173
-1
parse_invoke
38
173
-1
note_text
2
165
-1
set_note_text
2
165
-1
note_match_failed
38
173
-1
w*hat
38
9
-1
mode
38
25
-1
local_editing_info
38
173
-1
2
strmode
objects
40
4
0
38
1
4
0
38
5
4
0
38
1
4
0
38
1
4
2
4
12
2
say
2
emote
2
lis*t
2
ins*ert
2
n*ext,p*rev
2
enter
2
del*ete
2
f*ind
2
s*ubst
2
m*ove,c*opy
2
join*l
2
fill
4
6
2
w*hat
2
mode
2
e*dit
2
save
2
abort
2
q*uit,done,pause
38
5
1
45
38
5
2
Note is devoid of text.
38
5
4
3
4
2
2
e*dit
2
<note>
4
2
2
save
2
[<note>]
4
2
2
mode
2
[string|list]
38
5
0
0
38
1
5
38
5
2
You need to ABORT or SAVE this note before editing any other.
38
5
4
6
4
2
2
strmode
0
0
4
2
2
objects
0
0
4
2
2
texts
0
0
4
2
2
changes
0
0
4
2
2
inserting
0
1
4
2
2
readable
0
0
38
1
2
A small swarm of 3x5 index cards arrives, engulfs %n, and carries %o away.
38
5
2
A small swarm of 3x5 index cards blows in and disperses, revealing %n.
38
5
4
3
2
Partially edited text will be here when you get back.
2
To return, give the `@notedit' command with no arguments.
2
Please come back and SAVE or ABORT if you don't intend to be working on this text in the immediate future. Keep Our MOO Clean! No Littering!
38
5
2
Note has not been modified since the last save.
38
5
2
There are changes.
38
5
2
Use the EDIT command to select a note.
38
5
4
0
38
0
4
0
38
1
4
0
38
0
4
0
38
0
4
0
38
1
2
%L [editing notes]
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
4
0
38
4
1
-1
38
5
0
632280717
38
5
4
0
38
4
5
38
5
5
38
5
5
38
4
4
2
2
Note Editor
2
nedit
38
5
5
38
5
4
2
0
20431
0
743667477
2
1
#50
Verb Editor
16
38
-1
-1
-1
51
-1
49
10
e*dit
38
25
-1
com*pile
38
73
-2
working_on
38
173
-1
init_session
38
173
-1
parse_invoke
38
173
-1
fetch_verb_code
2
165
-1
set_verb_code
2
165
-1
local_editing_info
2
173
-1
verb_name
2
165
-1
verb_args
2
165
-1
2
objects
verbnames
40
4
1
1
348
38
0
4
1
2
8
38
0
4
1
0
0
38
1
4
1
0
-1463915969
38
1
4
2
4
12
2
say
2
emote
2
lis*t
2
ins*ert
2
n*ext,p*rev
2
enter
2
del*ete
2
f*ind
2
s*ubst
2
m*ove,c*opy
2
join*l
2
fill
4
5
2
w*hat
2
e*dit
2
com*pile
2
abort
2
q*uit,done,pause
38
5
1
45
38
5
2
Verb body is empty.
38
5
4
2
4
2
2
e*dit
2
<obj>:<verb>
4
2
2
com*pile
2
[as <obj>:<verb>]
38
5
0
0
38
1
5
38
5
2
You need to either COMPILE or ABORT this verb before you can start on another.
38
5
4
6
4
2
2
objects
0
0
4
2
2
verbnames
0
0
4
2
2
texts
0
0
4
2
2
changes
0
0
4
2
2
inserting
0
1
4
2
2
readable
0
0
38
1
2
You hear the bips of keyclick, the sliding of mice and the hum of computers in the distance as %n fades slowly out of view, heading towards them.
38
5
2
There are the light bips of keyclick and the sliding of mice as %n fades into view, shoving %r away from the console, which promptly fades away.
38
5
4
3
2
Keeping your verb for later work.
2
To return, give the `@edit' command with no arguments.
2
Please come back and COMPILE or ABORT if you don't intend to be working on this verb in the immediate future. Keep Our MOO Clean! No Littering!
38
5
2
The verb has no pending changes.
38
5
2
You have changed the verb since last successful compile.
38
5
2
First, you have to select a verb to edit with the EDIT command.
Keeping your [whatever] for later work. Since this the Generic Editor, you have to do your own :set_changed(0) so that we'll know to get rid of whatever it you're working on when you leave. Please don't litter... especially in the Generic Editor.
stares at %t; %[tps] bursts into flame and disappears, leaving no ash.
2
5
0
0
2
5
2
%T might be damp. In any case, %[tps] won't burn.
2
5
2
%T burns with a smokeless flame and leaves no ash.
2
5
5
2
5
5
38
4
5
38
5
5
2
5
5
2
5
5
2
5
5
2
5
5
38
5
5
38
5
5
38
5
2
This is a private letter.
38
5
5
38
4
4
1
2
generic letter
38
5
2
Some writing on the letter explains that you should 'read letter', and when you've finished, 'burn letter'.
38
5
4
2
0
1793
0
743619821
2
1
#56
list utilities
16
38
-1
-1
-1
1
-1
5
30
make
38
173
-1
range
38
173
-1
map_prop*erty
2
173
-1
map_verb
2
173
-1
map_arg
2
173
-1
map_builtin
2
173
-1
find_insert
38
173
-1
remove_duplicates
38
173
-1
arrayset
38
173
-1
setremove_all
38
173
-1
append
38
173
-1
reverse
38
173
-1
_reverse
38
173
-1
compress
38
173
-1
sort
38
173
-1
sort_suspended
2
173
-1
slice
38
173
-1
assoc
38
165
-1
iassoc
38
165
-1
iassoc_suspended
2
165
-1
assoc_prefix
38
173
-1
iassoc_prefix
38
173
-1
iassoc_sorted
38
173
-1
sort_alist
38
173
-1
sort_alist_suspended
2
173
-1
randomly_permute
38
173
-1
count
2
173
-1
flatten
38
173
-1
longest shortest
38
173
-1
check_nonstring_tell_lines
38
173
-1
1
nonstring_tell_lines
5
4
282
4
4
4
5
1
54875
2
tell_lines
1
2487
1
6
1
54875
4
5
1
48928
2
secure
1
30246
1
29557
1
54875
4
5
1
48928
2
arm
1
30246
1
29557
1
54875
4
5
1
48928
2
press
1
30246
1
29557
1
54875
4
4
4
5
1
46432
2
tell_lines
1
2487
1
6
1
46432
4
5
1
-1
2
1
46432
1
-1
1
46432
4
5
1
46432
2
eval_cmd_string
1
46432
1
217
1
46432
4
5
1
46432
2
eval
1
46432
1
217
1
46432
4
4
4
5
1
52775
2
tell_lines
1
2487
1
6
1
52775
4
5
1
-1
2
1
52775
1
-1
1
52775
4
5
1
52775
2
eval_cmd_string
1
52775
1
217
1
52775
4
5
1
52775
2
eval
1
52775
1
217
1
52775
4
3
4
5
1
30246
2
tell_lines
1
2487
1
6
1
30246
4
5
1
41114
2
look_self
1
53118
1
53931
1
30246
4
5
1
41114
2
look
1
4292
1
11825
1
30246
4
2
4
5
1
52775
2
tell_lines
1
2487
1
6
1
52775
4
5
1
52775
2
confunc
1
52775
1
52775
1
52775
4
4
4
5
1
1449
2
tell_lines
1
2487
1
6
1
1449
4
5
1
-1
2
1
1449
1
-1
1
1449
4
5
1
1449
2
eval_cmd_string
1
1449
1
217
1
1449
4
5
1
1449
2
eval
1
1449
1
217
1
1449
4
4
4
5
1
51902
2
tell_lines
1
2487
1
6
1
51902
4
5
1
53151
2
secure
1
30246
1
29557
1
51902
4
5
1
53151
2
arm
1
30246
1
29557
1
51902
4
5
1
53151
2
press
1
30246
1
29557
1
51902
4
6
4
5
1
56294
2
tell_lines
1
2487
1
6
1
8270
4
5
1
56294
2
receive_page
1
2487
1
6
1
8270
4
5
1
56294
2
receive_page
1
47
1
3133
1
8270
4
5
1
56294
2
receive_page
1
2487
1
7069
1
8270
4
5
1
56294
2
page
1
24442
1
5803
1
8270
4
5
1
8270
2
call
1
56294
1
7680
1
8270
4
6
4
5
1
56429
2
tell_lines
1
2487
1
6
1
56429
4
5
1
36284
2
@dox
1
19845
1
36284
1
56429
4
5
1
56429
2
my_huh
1
56429
1
6
1
56429
4
5
1
56429
2
my_huh
1
78
1
7069
1
56429
4
5
1
219
2
do_huh
1
56429
1
219
1
56429
4
5
1
26477
2
@dox
1
56429
1
1
1
56429
4
2
4
5
1
56824
2
tell_lines
1
2487
1
6
1
56824
4
5
1
36826
2
secure
1
30246
1
29557
1
56824
4
4
4
5
1
52407
2
tell_lines
1
2487
1
6
1
52407
4
5
1
187
2
secure
1
30246
1
29557
1
52407
4
5
1
187
2
arm
1
30246
1
29557
1
52407
4
5
1
187
2
press
1
30246
1
29557
1
52407
4
8
4
5
1
48961
2
tell_lines
1
2487
1
6
1
48961
4
5
1
36284
2
@inspect
1
19845
1
36284
1
48961
4
5
1
48961
2
my_huh
1
48961
1
6
1
48961
4
5
1
48961
2
my_huh
1
78
1
7069
1
48961
4
5
1
48961
2
my_huh
1
24442
1
26026
1
48961
4
5
1
48961
2
my_huh
1
57140
1
49900
1
48961
4
5
1
219
2
do_huh
1
48961
1
219
1
48961
4
5
1
39357
2
@inspect
1
48961
1
1
1
48961
4
4
4
5
1
50290
2
tell_lines
1
2487
1
6
1
50290
4
5
1
30744
2
secure
1
30246
1
29557
1
50290
4
5
1
30744
2
arm
1
30246
1
29557
1
50290
4
5
1
30744
2
press
1
30246
1
29557
1
50290
4
7
4
5
1
54099
2
tell_lines
1
2487
1
6
1
54099
4
5
1
30054
2
secure
1
30246
1
29557
1
54099
4
5
1
30054
2
arm
1
30246
1
29557
1
54099
4
5
1
30054
2
say_parse
1
30246
1
29557
1
54099
4
5
1
30054
2
announce
1
30246
1
29557
1
54099
4
5
1
54099
2
say
1
57140
1
49900
1
54099
4
5
1
54099
2
say
1
19845
1
5409
1
54099
4
9
4
5
1
53471
2
tell_lines
1
2487
1
6
1
53471
4
5
1
53914
2
secure
1
30246
1
29557
1
53471
4
5
1
53914
2
arm
1
30246
1
29557
1
53471
4
5
1
53914
2
say_parse
1
30246
1
29557
1
53471
4
5
1
53914
2
announce
1
30246
1
29557
1
53471
4
5
1
53914
2
say
1
2
1
3
1
53471
4
5
1
53914
2
say
1
48961
1
39357
1
53471
4
5
1
53471
2
say
1
57140
1
49900
1
53471
4
5
1
53471
2
say
1
19845
1
5409
1
53471
4
6
4
5
1
51626
2
tell_lines
1
2487
1
6
1
52739
4
5
1
51626
2
receive_page
1
2487
1
6
1
52739
4
5
1
51626
2
receive_page
1
47
1
3133
1
52739
4
5
1
51626
2
receive_page
1
2487
1
7069
1
52739
4
5
1
51626
2
page
1
24442
1
5803
1
52739
4
5
1
52739
2
call
1
56294
1
7680
1
52739
4
4
4
5
1
19845
2
tell_lines
1
2487
1
6
1
19845
4
5
1
-1
2
1
19845
1
-1
1
19845
4
5
1
19845
2
eval_cmd_string
1
19845
1
217
1
19845
4
5
1
19845
2
eval
1
19845
1
19845
1
19845
4
9
4
5
1
50459
2
tell_lines
1
2487
1
6
1
50459
4
5
1
54488
2
look_self
1
50459
1
54488
1
50459
4
5
1
54488
2
cell_enterfunc
1
19845
1
53993
1
50459
4
5
1
54488
2
cell_enterfunc
1
19845
1
35120
1
50459
4
5
1
54488
2
cell_enterfunc
1
19845
1
7970
1
50459
4
5
1
54488
2
cell_enterfunc
1
50459
1
54488
1
50459
4
5
1
54488
2
place_object
1
19845
1
53993
1
50459
4
5
1
54488
2
sw
1
19845
1
53993
1
50459
4
5
1
54488
2
sw
1
19845
1
5804
1
50459
4
9
4
5
1
50459
2
tell_lines
1
2487
1
6
1
50459
4
5
1
54488
2
look_self
1
50459
1
54488
1
50459
4
5
1
54488
2
cell_enterfunc
1
19845
1
53993
1
50459
4
5
1
54488
2
cell_enterfunc
1
19845
1
35120
1
50459
4
5
1
54488
2
cell_enterfunc
1
19845
1
7970
1
50459
4
5
1
54488
2
cell_enterfunc
1
50459
1
54488
1
50459
4
5
1
54488
2
place_object
1
19845
1
53993
1
50459
4
5
1
54488
2
w
1
19845
1
53993
1
50459
4
5
1
54488
2
w
1
19845
1
5804
1
50459
4
11
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
22566
2
look_self
1
15
1
6792
1
50636
4
5
1
22566
2
enterfunc
1
2
1
3
1
50636
4
5
1
22566
2
enterfunc
1
2693
1
258
1
50636
4
5
1
22566
2
enterfunc
1
50636
1
22566
1
50636
4
5
1
50636
2
moveto
1
50636
1
1
1
50636
4
5
1
50636
2
moveto
1
47
1
6
1
50636
4
5
1
50636
2
moveto
1
47
1
3133
1
50636
4
5
1
50636
2
moveto
1
78
1
7069
1
50636
4
5
1
50636
2
moveto
1
3685
1
8855
1
50636
4
5
1
5443
2
done
1
6336
1
5400
1
50636
4
7
4
5
1
34107
2
tell_lines
1
2487
1
6
1
34107
4
5
1
7944
2
secure
1
30246
1
29557
1
34107
4
5
1
7944
2
arm
1
30246
1
29557
1
34107
4
5
1
7944
2
say_parse
1
30246
1
29557
1
34107
4
5
1
7944
2
announce
1
30246
1
29557
1
34107
4
5
1
7944
2
say
1
2
1
3
1
34107
4
5
1
34107
2
say
1
31783
1
4803
1
34107
4
2
4
5
1
48961
2
tell_lines
1
2487
1
6
1
48961
4
5
1
2934
2
secure
1
30246
1
29557
1
48961
4
6
4
5
1
56824
2
tell_lines
1
2487
1
6
1
56824
4
5
1
36826
2
secure
1
30246
1
29557
1
56824
4
5
1
36826
2
arm
1
30246
1
29557
1
56824
4
5
1
36826
2
say_parse
1
30246
1
29557
1
56824
4
5
1
36826
2
announce
1
30246
1
29557
1
56824
4
5
1
56824
2
say
1
57140
1
49900
1
56824
4
8
4
5
1
48961
2
tell_lines
1
2487
1
6
1
48961
4
5
1
49519
2
secure
1
30246
1
29557
1
48961
4
5
1
49519
2
arm
1
30246
1
29557
1
48961
4
5
1
49519
2
say_parse
1
30246
1
29557
1
48961
4
5
1
49519
2
announce
1
30246
1
29557
1
48961
4
5
1
49519
2
announce
1
48961
1
39357
1
48961
4
5
1
48961
2
say
1
57140
1
49900
1
48961
4
5
1
48961
2
say
1
19845
1
5409
1
48961
4
7
4
5
1
56872
2
tell_lines
1
2487
1
6
1
56872
4
5
1
39439
2
secure
1
30246
1
29557
1
56872
4
5
1
39439
2
arm
1
30246
1
29557
1
56872
4
5
1
39439
2
say_parse
1
30246
1
29557
1
56872
4
5
1
39439
2
announce
1
30246
1
29557
1
56872
4
5
1
39439
2
say
1
2
1
3
1
56872
4
5
1
56872
2
say
1
31783
1
4803
1
56872
4
4
4
5
1
57014
2
tell_lines
1
2487
1
6
1
57014
4
5
1
55869
2
secure
1
30246
1
29557
1
57014
4
5
1
55869
2
arm
1
30246
1
29557
1
57014
4
5
1
55869
2
press
1
30246
1
29557
1
57014
4
3
4
5
1
52775
2
tell_lines
1
2487
1
6
1
52775
4
5
1
25465
2
look_self
1
2612
1
13131
1
52775
4
5
1
5443
2
l
1
2
1
3
1
52775
4
6
4
5
1
56819
2
tell_lines
1
2487
1
6
1
56819
4
5
1
52619
2
secure
1
30246
1
29557
1
56819
4
5
1
52619
2
arm
1
30246
1
29557
1
56819
4
5
1
52619
2
say_parse
1
30246
1
29557
1
56819
4
5
1
52619
2
announce
1
30246
1
29557
1
56819
4
5
1
56819
2
say
1
57140
1
49900
1
56819
4
6
4
5
1
56244
2
tell_lines
1
2487
1
6
1
56244
4
5
1
22110
2
secure
1
30246
1
29557
1
56244
4
5
1
22110
2
arm
1
30246
1
29557
1
56244
4
5
1
22110
2
say_parse
1
30246
1
29557
1
56244
4
5
1
22110
2
announce
1
30246
1
29557
1
56244
4
5
1
22110
2
say
1
2
1
3
1
56244
4
9
4
5
1
56429
2
tell_lines
1
2487
1
6
1
43852
4
5
1
56429
2
receive_page
1
2487
1
6
1
43852
4
5
1
56429
2
receive_page
1
47
1
3133
1
43852
4
5
1
56429
2
receive_page
1
2487
1
7069
1
43852
4
5
1
56429
2
page
1
24442
1
5803
1
43852
4
5
1
43852
2
call
1
41057
1
7680
1
43852
4
5
1
43852
2
do
1
78
1
7680
1
56429
4
5
1
43852
2
do
1
41057
1
7608
1
56429
4
5
1
43852
2
command
1
78
1
7680
1
56429
4
4
4
5
1
56815
2
tell_lines
1
2487
1
6
1
56815
4
5
1
54413
2
secure
1
30246
1
29557
1
56815
4
5
1
54413
2
arm
1
30246
1
29557
1
56815
4
5
1
54413
2
press
1
30246
1
29557
1
56815
4
6
4
5
1
57122
2
tell_lines
1
2487
1
6
1
57122
4
5
1
31891
2
secure
1
30246
1
29557
1
57122
4
5
1
31891
2
arm
1
30246
1
29557
1
57122
4
5
1
31891
2
say_parse
1
30246
1
29557
1
57122
4
5
1
31891
2
announce
1
30246
1
29557
1
57122
4
5
1
31891
2
say
1
2
1
3
1
57122
4
7
4
5
1
56815
2
tell_lines
1
2487
1
6
1
56815
4
5
1
54413
2
secure
1
30246
1
29557
1
56815
4
5
1
54413
2
arm
1
30246
1
29557
1
56815
4
5
1
54413
2
say_parse
1
30246
1
29557
1
56815
4
5
1
54413
2
announce
1
30246
1
29557
1
56815
4
5
1
56815
2
say
1
57140
1
49900
1
56815
4
5
1
56815
2
say
1
19845
1
5409
1
56815
4
9
4
5
1
57464
2
tell_lines
1
2487
1
6
1
53121
4
5
1
57464
2
receive_page
1
2487
1
6
1
53121
4
5
1
57464
2
receive_page
1
47
1
3133
1
53121
4
5
1
57464
2
receive_page
1
2487
1
7069
1
53121
4
5
1
57464
2
page
1
24442
1
5803
1
53121
4
5
1
53121
2
call
1
41057
1
7680
1
53121
4
5
1
53121
2
do
1
78
1
7680
1
57464
4
5
1
53121
2
do
1
41057
1
7608
1
57464
4
5
1
53121
2
command
1
78
1
7680
1
57464
4
4
4
5
1
35203
2
tell_lines
1
2487
1
6
1
35203
4
5
1
6946
2
secure
1
30246
1
29557
1
35203
4
5
1
6946
2
arm
1
30246
1
29557
1
35203
4
5
1
6946
2
press
1
30246
1
29557
1
35203
4
5
4
5
1
24436
2
tell_lines
1
2487
1
6
1
24436
4
5
1
6712
2
key
1
30246
1
6712
1
24436
4
5
1
-1
2
1
24436
1
-1
1
24436
4
5
1
24436
2
eval_cmd_string
1
24436
1
217
1
24436
4
5
1
24436
2
eval
1
24436
1
217
1
24436
4
2
4
5
1
24436
2
tell_lines
1
2487
1
6
1
24436
4
5
1
6686
2
key
1
30246
1
6686
1
24436
4
4
4
5
1
2957
2
tell_lines
1
2487
1
6
1
2957
4
5
1
-1
2
1
2957
1
-1
1
2957
4
5
1
2957
2
eval_cmd_string
1
2957
1
217
1
2957
4
5
1
2957
2
eval
1
2957
1
217
1
2957
4
7
4
5
1
50624
2
tell_lines
1
2487
1
6
1
50624
4
5
1
40295
2
secure
1
30246
1
29557
1
50624
4
5
1
40295
2
arm
1
30246
1
29557
1
50624
4
5
1
40295
2
say_parse
1
30246
1
29557
1
50624
4
5
1
40295
2
announce
1
30246
1
29557
1
50624
4
5
1
40295
2
say
1
2
1
3
1
50624
4
5
1
50624
2
say
1
31783
1
4803
1
50624
4
4
4
5
1
53465
2
tell_lines
1
2487
1
6
1
53465
4
5
1
5008
2
secure
1
30246
1
29557
1
53465
4
5
1
5008
2
arm
1
30246
1
29557
1
53465
4
5
1
5008
2
press
1
30246
1
29557
1
53465
4
2
4
5
1
50459
2
tell_lines
1
2487
1
6
1
50459
4
5
1
9200
2
about
1
50459
1
9200
1
50459
4
4
4
5
1
46432
2
tell_lines
1
2487
1
6
1
46432
4
5
1
11853
2
secure
1
30246
1
29557
1
46432
4
5
1
11853
2
arm
1
30246
1
29557
1
46432
4
5
1
11853
2
press
1
30246
1
29557
1
46432
4
8
4
5
1
56968
2
tell_lines
1
2487
1
6
1
56968
4
5
1
36284
2
@dox
1
19845
1
36284
1
56968
4
5
1
56968
2
my_huh
1
56968
1
6
1
56968
4
5
1
56968
2
my_huh
1
78
1
7069
1
56968
4
5
1
56968
2
my_huh
1
24442
1
26026
1
56968
4
5
1
56968
2
my_huh
1
57140
1
49900
1
56968
4
5
1
219
2
do_huh
1
56968
1
219
1
56968
4
5
1
56977
2
@dox
1
56968
1
1
1
56968
4
7
4
5
1
54837
2
tell_lines
1
2487
1
6
1
54837
4
5
1
38607
2
secure
1
30246
1
29557
1
54837
4
5
1
38607
2
arm
1
30246
1
29557
1
54837
4
5
1
38607
2
say_parse
1
30246
1
29557
1
54837
4
5
1
38607
2
announce
1
30246
1
29557
1
54837
4
5
1
38607
2
say
1
2
1
3
1
54837
4
5
1
54837
2
say
1
31783
1
4803
1
54837
4
7
4
5
1
53702
2
tell_lines
1
2487
1
6
1
53702
4
5
1
42348
2
secure
1
30246
1
29557
1
53702
4
5
1
42348
2
arm
1
30246
1
29557
1
53702
4
5
1
42348
2
say_parse
1
30246
1
29557
1
53702
4
5
1
42348
2
announce
1
30246
1
29557
1
53702
4
5
1
42348
2
announce
1
48961
1
39357
1
53702
4
5
1
53702
2
say
1
57140
1
49900
1
53702
4
4
4
5
1
34107
2
tell_lines
1
2487
1
6
1
34107
4
5
1
7944
2
secure
1
30246
1
29557
1
34107
4
5
1
7944
2
arm
1
30246
1
29557
1
34107
4
5
1
7944
2
press
1
30246
1
29557
1
34107
4
4
4
5
1
50459
2
tell_lines
1
2487
1
6
1
50459
4
5
1
-1
2
1
50459
1
-1
1
50459
4
5
1
50459
2
eval_cmd_string
1
50459
1
217
1
50459
4
5
1
50459
2
eval
1
50459
1
217
1
50459
4
4
4
5
1
49397
2
tell_lines
1
2487
1
6
1
50459
4
5
1
-1
2
1
50459
1
-1
1
50459
4
5
1
50459
2
eval_cmd_string
1
50459
1
217
1
50459
4
5
1
50459
2
eval
1
50459
1
217
1
50459
4
2
4
5
1
30246
2
tell_lines
1
2487
1
6
1
30246
4
5
1
30246
2
debug
1
30246
1
30246
1
30246
4
2
4
5
1
54699
2
tell_lines
1
2487
1
6
1
54699
4
5
1
54699
2
sgrep
1
54699
1
54699
1
54699
4
7
4
5
1
57421
2
tell_lines
1
2487
1
6
1
57421
4
5
1
51426
2
secure
1
49551
1
29557
1
57421
4
5
1
51426
2
arm
1
49551
1
29557
1
57421
4
5
1
51426
2
say_parse
1
49551
1
29557
1
57421
4
5
1
51426
2
announce
1
49551
1
29557
1
57421
4
5
1
57421
2
say
1
57140
1
49900
1
57421
4
5
1
57421
2
say
1
19845
1
5409
1
57421
4
2
4
5
1
56815
2
tell_lines
1
2487
1
6
1
56815
4
5
1
56516
2
secure
1
49551
1
29557
1
56815
4
6
4
5
1
55164
2
tell_lines
1
2487
1
6
1
55164
4
5
1
54023
2
secure
1
49551
1
29557
1
55164
4
5
1
54023
2
arm
1
49551
1
29557
1
55164
4
5
1
54023
2
say_parse
1
49551
1
29557
1
55164
4
5
1
54023
2
announce
1
49551
1
29557
1
55164
4
5
1
55164
2
say
1
57140
1
49900
1
55164
4
4
4
5
1
53502
2
tell_lines
1
2487
1
6
1
53502
4
5
1
53245
2
secure
1
49551
1
29557
1
53502
4
5
1
53245
2
arm
1
49551
1
29557
1
53502
4
5
1
53245
2
press
1
49551
1
29557
1
53502
4
4
4
5
1
53464
2
tell_lines
1
2487
1
6
1
53464
4
5
1
30362
2
secure
1
49551
1
29557
1
53464
4
5
1
30362
2
arm
1
49551
1
29557
1
53464
4
5
1
30362
2
press
1
49551
1
29557
1
53464
4
7
4
5
1
50064
2
tell_lines
1
2487
1
6
1
50064
4
5
1
22709
2
secure
1
49551
1
29557
1
50064
4
5
1
22709
2
arm
1
49551
1
29557
1
50064
4
5
1
22709
2
say_parse
1
49551
1
29557
1
50064
4
5
1
22709
2
announce
1
49551
1
29557
1
50064
4
5
1
22709
2
announce
1
48961
1
39357
1
50064
4
5
1
50064
2
say
1
57140
1
49900
1
50064
4
7
4
5
1
34107
2
tell_lines
1
2487
1
6
1
34107
4
5
1
7944
2
secure
1
49551
1
29557
1
34107
4
5
1
7944
2
arm
1
49551
1
29557
1
34107
4
5
1
7944
2
say_parse
1
49551
1
29557
1
34107
4
5
1
7944
2
announce
1
49551
1
29557
1
34107
4
5
1
7944
2
say
1
2
1
3
1
34107
4
5
1
34107
2
say
1
31783
1
4803
1
34107
4
3
4
5
1
30246
2
tell_lines
1
2487
1
6
1
30246
4
5
1
53622
2
look_self
1
15
1
6792
1
30246
4
5
1
53622
2
look
1
2693
1
258
1
30246
4
4
4
5
1
50290
2
tell_lines
1
2487
1
6
1
50290
4
5
1
53622
2
look_self
1
15
1
6792
1
50290
4
5
1
27391
2
l
1
2
1
3
1
50290
4
5
1
27391
2
l
1
4290
1
6145
1
50290
4
4
4
5
1
54377
2
tell_lines
1
2487
1
6
1
54377
4
5
1
53646
2
secure
1
49551
1
29557
1
54377
4
5
1
53646
2
arm
1
49551
1
29557
1
54377
4
5
1
53646
2
press
1
49551
1
29557
1
54377
4
4
4
5
1
30246
2
tell_lines
1
2487
1
6
1
30246
4
5
1
53756
2
event_enterfunc
1
30246
1
53756
1
30246
4
5
1
54318
2
invoke
1
30246
1
54318
1
30246
4
5
1
53622
2
d
1
7003
1
16020
1
30246
4
8
4
5
1
46102
2
tell_lines
1
2487
1
6
1
46102
4
5
1
26811
2
look_self
1
46102
1
26811
1
46102
4
5
1
26811
2
cell_enterfunc
1
19845
1
53993
1
46102
4
5
1
26811
2
cell_enterfunc
1
19845
1
35120
1
46102
4
5
1
26811
2
cell_enterfunc
1
19845
1
7970
1
46102
4
5
1
26811
2
place_object
1
19845
1
53993
1
46102
4
5
1
26811
2
n
1
19845
1
53993
1
46102
4
5
1
26811
2
n
1
19845
1
5804
1
46102
4
16
4
5
1
46102
2
tell_lines
1
2487
1
6
1
46102
4
5
1
26811
2
look_self
1
46102
1
26811
1
46102
4
5
1
26811
2
cell_enterfunc
1
19845
1
53993
1
46102
4
5
1
26811
2
cell_enterfunc
1
19845
1
35120
1
46102
4
5
1
26811
2
cell_enterfunc
1
19845
1
7970
1
46102
4
5
1
26811
2
place_object
1
19845
1
53993
1
46102
4
5
1
26811
2
enterfunc
1
19845
1
53993
1
46102
4
5
1
26811
2
enterfunc
1
19845
1
7970
1
46102
4
5
1
46102
2
moveto
1
46102
1
1
1
46102
4
5
1
46102
2
moveto
1
47
1
6
1
46102
4
5
1
46102
2
moveto
1
47
1
3133
1
46102
4
5
1
46102
2
moveto
1
78
1
7069
1
46102
4
5
1
46102
2
moveto
1
3685
1
8855
1
46102
4
5
1
46102
2
teleport
1
47
1
3133
1
46102
4
5
1
46102
2
teleport
1
3920
1
33337
1
46102
4
5
1
46102
2
@go
1
47
1
3133
1
46102
4
7
4
5
1
56872
2
tell_lines
1
2487
1
6
1
56872
4
5
1
39439
2
secure
1
49551
1
29557
1
56872
4
5
1
39439
2
arm
1
49551
1
29557
1
56872
4
5
1
39439
2
say_parse
1
49551
1
29557
1
56872
4
5
1
39439
2
announce
1
49551
1
29557
1
56872
4
5
1
39439
2
say
1
2
1
3
1
56872
4
5
1
56872
2
say
1
31783
1
4803
1
56872
4
2
4
5
1
53456
2
tell_lines
1
2487
1
6
1
53456
4
5
1
35807
2
secure
1
30246
1
16017
1
53456
4
4
4
5
1
2487
2
tell_lines
1
2487
1
6
1
2487
4
5
1
-1
2
1
2487
1
-1
1
2487
4
5
1
2487
2
eval_cmd_string
1
2487
1
217
1
2487
4
5
1
2487
2
eval
1
2487
1
217
1
2487
4
4
4
5
1
50432
2
tell_lines
1
2487
1
6
1
50432
4
5
1
39785
2
secure
1
49551
1
29557
1
50432
4
5
1
39785
2
arm
1
49551
1
29557
1
50432
4
5
1
39785
2
press
1
49551
1
29557
1
50432
4
2
4
5
1
55689
2
tell_lines
1
2487
1
6
1
55689
4
5
1
39285
2
secure
1
49551
1
29557
1
55689
4
6
4
5
1
56289
2
tell_lines
1
2487
1
6
1
56289
4
5
1
44585
2
secure
1
49551
1
29557
1
56289
4
5
1
44585
2
arm
1
49551
1
29557
1
56289
4
5
1
44585
2
say_parse
1
49551
1
29557
1
56289
4
5
1
44585
2
announce
1
49551
1
29557
1
56289
4
5
1
56289
2
say
1
57140
1
49900
1
56289
4
3
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
50636
2
look_self
1
15
1
7069
1
50636
4
5
1
22929
2
look
1
2693
1
258
1
50636
4
4
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
50636
2
look_self
1
15
1
7069
1
50636
4
5
1
52044
2
look
1
2
1
3
1
50636
4
5
1
52044
2
look
1
4290
1
6145
1
50636
4
4
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
50636
2
look_self
1
15
1
7069
1
50636
4
5
1
52044
2
look
1
2
1
3
1
50636
4
5
1
52044
2
look
1
4290
1
6145
1
50636
4
8
4
5
1
50051
2
tell_lines
1
2487
1
6
1
50051
4
5
1
18807
2
@peruse
1
31783
1
18807
1
50051
4
5
1
50051
2
my_huh
1
50051
1
6
1
50051
4
5
1
50051
2
my_huh
1
78
1
7069
1
50051
4
5
1
50051
2
my_huh
1
24442
1
26026
1
50051
4
5
1
50051
2
my_huh
1
57140
1
49900
1
50051
4
5
1
219
2
do_huh
1
50051
1
219
1
50051
4
5
1
20242
2
@peruse
1
50051
1
1
1
50051
4
4
4
5
1
53562
2
tell_lines
1
2487
1
6
1
53562
4
5
1
50636
2
look_self
1
15
1
7069
1
53562
4
5
1
29038
2
special_look
1
31783
1
9805
1
53562
4
5
1
29038
2
look
1
31783
1
9805
1
53562
4
4
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
50636
2
look_self
1
15
1
7069
1
50636
4
5
1
29038
2
special_look
1
31783
1
9805
1
50636
4
5
1
29038
2
look
1
31783
1
9805
1
50636
4
4
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
50636
2
look_self
1
15
1
7069
1
50636
4
5
1
52044
2
look
1
2
1
3
1
50636
4
5
1
52044
2
look
1
4290
1
6145
1
50636
4
4
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
50636
2
look_self
1
15
1
7069
1
50636
4
5
1
29038
2
special_look
1
31783
1
9805
1
50636
4
5
1
29038
2
look
1
31783
1
9805
1
50636
4
4
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
50636
2
look_self
1
15
1
7069
1
50636
4
5
1
29038
2
special_look
1
31783
1
9805
1
50636
4
5
1
29038
2
look
1
31783
1
9805
1
50636
4
4
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
50636
2
look_self
1
15
1
7069
1
50636
4
5
1
52044
2
look
1
2
1
3
1
50636
4
5
1
52044
2
look
1
4290
1
6145
1
50636
4
7
4
5
1
54837
2
tell_lines
1
2487
1
6
1
54837
4
5
1
38607
2
secure
1
49551
1
29557
1
54837
4
5
1
38607
2
arm
1
49551
1
29557
1
54837
4
5
1
38607
2
say_parse
1
49551
1
29557
1
54837
4
5
1
38607
2
announce
1
49551
1
29557
1
54837
4
5
1
38607
2
say
1
2
1
3
1
54837
4
5
1
54837
2
say
1
31783
1
4803
1
54837
4
4
4
5
1
56819
2
tell_lines
1
2487
1
6
1
56819
4
5
1
48003
2
secure
1
49551
1
29557
1
56819
4
5
1
48003
2
arm
1
49551
1
29557
1
56819
4
5
1
48003
2
press
1
49551
1
29557
1
56819
4
2
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
50636
2
@refusals
1
50636
1
50636
1
50636
4
2
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
50636
2
@refusals
1
50636
1
50636
1
50636
4
2
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
50636
2
@refusals
1
50636
1
50636
1
50636
4
2
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
50636
2
@refusals
1
50636
1
50636
1
50636
4
2
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
50636
2
@refusals
1
50636
1
50636
1
50636
4
8
4
5
1
49551
2
tell_lines
1
2487
1
6
1
49551
4
5
1
29557
2
_darkness
1
49551
1
29557
1
49551
4
5
1
19233
2
int_desc
1
49551
1
29557
1
49551
4
5
1
19233
2
description
1
49551
1
29557
1
49551
4
5
1
19233
2
sitting_description
1
31783
1
9805
1
49551
4
5
1
19233
2
look_self
1
31783
1
9805
1
49551
4
5
1
19233
2
look
1
31783
1
9805
1
49551
4
5
1
19233
2
look
1
49551
1
29557
1
49551
4
7
4
5
1
56872
2
tell_lines
1
2487
1
6
1
56872
4
5
1
39439
2
secure
1
49551
1
29557
1
56872
4
5
1
39439
2
arm
1
49551
1
29557
1
56872
4
5
1
39439
2
say_parse
1
49551
1
29557
1
56872
4
5
1
39439
2
announce
1
49551
1
29557
1
56872
4
5
1
39439
2
say
1
2
1
3
1
56872
4
5
1
56872
2
say
1
31783
1
4803
1
56872
4
7
4
5
1
53592
2
tell_lines
1
2487
1
6
1
53592
4
5
1
35434
2
secure
1
49551
1
29557
1
53592
4
5
1
35434
2
arm
1
49551
1
29557
1
53592
4
5
1
35434
2
say_parse
1
49551
1
29557
1
53592
4
5
1
35434
2
announce
1
49551
1
29557
1
53592
4
5
1
53592
2
say
1
57140
1
49900
1
53592
4
5
1
53592
2
say
1
19845
1
5409
1
53592
4
10
4
5
1
53592
2
tell_lines
1
2487
1
6
1
53592
4
5
1
16553
2
secure
1
30246
1
16017
1
53592
4
5
1
16553
2
arm
1
30246
1
16017
1
53592
4
5
1
16553
2
say_parse
1
30246
1
16017
1
53592
4
5
1
16553
2
announce_all
1
30246
1
16017
1
53592
4
5
1
16553
2
tell
1
4290
1
6145
1
53592
4
5
1
35434
2
announce
1
31783
1
9805
1
53592
4
5
1
35434
2
announce
1
49551
1
29557
1
53592
4
5
1
53592
2
say
1
57140
1
49900
1
53592
4
5
1
53592
2
say
1
19845
1
5409
1
53592
4
7
4
5
1
53592
2
tell_lines
1
2487
1
6
1
53592
4
5
1
35434
2
secure
1
49551
1
29557
1
53592
4
5
1
35434
2
arm
1
49551
1
29557
1
53592
4
5
1
35434
2
say_parse
1
49551
1
29557
1
53592
4
5
1
35434
2
announce
1
49551
1
29557
1
53592
4
5
1
53592
2
say
1
57140
1
49900
1
53592
4
5
1
53592
2
say
1
19845
1
5409
1
53592
4
2
4
5
1
53592
2
tell_lines
1
2487
1
6
1
53592
4
5
1
35434
2
secure
1
49551
1
29557
1
53592
4
6
4
5
1
57810
2
tell_lines
1
2487
1
6
1
57810
4
5
1
25980
2
secure
1
49551
1
29557
1
57810
4
5
1
25980
2
arm
1
49551
1
29557
1
57810
4
5
1
25980
2
say_parse
1
49551
1
29557
1
57810
4
5
1
25980
2
announce
1
49551
1
29557
1
57810
4
5
1
25980
2
say
1
2
1
3
1
57810
4
4
4
5
1
51011
2
tell_lines
1
2487
1
6
1
51011
4
5
1
23829
2
secure
1
49551
1
29557
1
51011
4
5
1
23829
2
arm
1
49551
1
29557
1
51011
4
5
1
23829
2
press
1
49551
1
29557
1
51011
4
6
4
5
1
57490
2
tell_lines
1
2487
1
6
1
57490
4
5
1
40548
2
secure
1
49551
1
29557
1
57490
4
5
1
40548
2
arm
1
49551
1
29557
1
57490
4
5
1
40548
2
say_parse
1
49551
1
29557
1
57490
4
5
1
40548
2
announce
1
49551
1
29557
1
57490
4
5
1
57490
2
say
1
57140
1
49900
1
57490
4
7
4
5
1
49397
2
tell_lines
1
2487
1
6
1
49397
4
5
1
7832
2
secure
1
49551
1
29557
1
49397
4
5
1
7832
2
arm
1
49551
1
29557
1
49397
4
5
1
7832
2
say_parse
1
49551
1
29557
1
49397
4
5
1
7832
2
announce
1
49551
1
29557
1
49397
4
5
1
49397
2
say
1
57140
1
49900
1
49397
4
5
1
49397
2
say
1
19845
1
5409
1
49397
4
8
4
5
1
50823
2
tell_lines
1
2487
1
6
1
50823
4
5
1
36284
2
@inspect
1
19845
1
36284
1
50823
4
5
1
50823
2
my_huh
1
50823
1
6
1
50823
4
5
1
50823
2
my_huh
1
78
1
7069
1
50823
4
5
1
50823
2
my_huh
1
24442
1
26026
1
50823
4
5
1
50823
2
my_huh
1
57140
1
49900
1
50823
4
5
1
219
2
do_huh
1
50823
1
219
1
50823
4
5
1
17
2
@inspect
1
50823
1
1
1
50823
4
4
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
50636
2
look_self
1
2
1
1
1
50636
4
5
1
50636
2
look_self
1
2
1
6
1
50636
4
5
1
5443
2
look
1
2
1
3
1
50636
4
7
4
5
1
50204
2
tell_lines
1
2487
1
6
1
50204
4
5
1
25972
2
secure
1
49551
1
29557
1
50204
4
5
1
25972
2
arm
1
49551
1
29557
1
50204
4
5
1
25972
2
say_parse
1
49551
1
29557
1
50204
4
5
1
25972
2
announce
1
49551
1
29557
1
50204
4
5
1
25972
2
say
1
2
1
3
1
50204
4
5
1
50204
2
say
1
31783
1
4803
1
50204
4
7
4
5
1
54837
2
tell_lines
1
2487
1
6
1
54837
4
5
1
38607
2
secure
1
49551
1
29557
1
54837
4
5
1
38607
2
arm
1
49551
1
29557
1
54837
4
5
1
38607
2
say_parse
1
49551
1
29557
1
54837
4
5
1
38607
2
announce
1
49551
1
29557
1
54837
4
5
1
38607
2
say
1
2
1
3
1
54837
4
5
1
54837
2
say
1
31783
1
4803
1
54837
4
7
4
5
1
50204
2
tell_lines
1
2487
1
6
1
50204
4
5
1
25972
2
secure
1
49551
1
29557
1
50204
4
5
1
25972
2
arm
1
49551
1
29557
1
50204
4
5
1
25972
2
say_parse
1
49551
1
29557
1
50204
4
5
1
25972
2
announce
1
49551
1
29557
1
50204
4
5
1
25972
2
say
1
2
1
3
1
50204
4
5
1
50204
2
say
1
31783
1
4803
1
50204
4
6
4
5
1
51261
2
tell_lines
1
2487
1
6
1
51261
4
5
1
51261
2
look_self
1
15
1
7069
1
51261
4
5
1
51261
2
look_self
1
57140
1
49900
1
51261
4
5
1
30711
2
special_look
1
31783
1
9805
1
51261
4
5
1
30711
2
l
1
31783
1
9805
1
51261
4
5
1
30711
2
l
1
49551
1
29557
1
51261
4
6
4
5
1
51261
2
tell_lines
1
2487
1
6
1
51261
4
5
1
51261
2
look_self
1
15
1
7069
1
51261
4
5
1
51261
2
look_self
1
57140
1
49900
1
51261
4
5
1
30711
2
special_look
1
31783
1
9805
1
51261
4
5
1
30711
2
l
1
31783
1
9805
1
51261
4
5
1
30711
2
l
1
49551
1
29557
1
51261
4
6
4
5
1
51261
2
tell_lines
1
2487
1
6
1
51261
4
5
1
51261
2
look_self
1
15
1
7069
1
51261
4
5
1
51261
2
look_self
1
57140
1
49900
1
51261
4
5
1
30711
2
special_look
1
31783
1
9805
1
51261
4
5
1
30711
2
l
1
31783
1
9805
1
51261
4
5
1
30711
2
l
1
49551
1
29557
1
51261
4
6
4
5
1
57861
2
tell_lines
1
2487
1
6
1
57861
4
5
1
51261
2
look_self
1
15
1
7069
1
57861
4
5
1
51261
2
look_self
1
57140
1
49900
1
57861
4
5
1
30711
2
special_look
1
31783
1
9805
1
57861
4
5
1
30711
2
l
1
31783
1
9805
1
57861
4
5
1
30711
2
l
1
49551
1
29557
1
57861
4
6
4
5
1
51261
2
tell_lines
1
2487
1
6
1
51261
4
5
1
51261
2
look_self
1
15
1
7069
1
51261
4
5
1
51261
2
look_self
1
57140
1
49900
1
51261
4
5
1
30711
2
special_look
1
31783
1
9805
1
51261
4
5
1
30711
2
l
1
31783
1
9805
1
51261
4
5
1
30711
2
l
1
49551
1
29557
1
51261
4
4
4
5
1
51261
2
tell_lines
1
2487
1
6
1
51261
4
5
1
51261
2
look_self
1
15
1
7069
1
51261
4
5
1
51261
2
look_self
1
57140
1
49900
1
51261
4
5
1
57659
2
l
1
2
1
3
1
51261
4
4
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
51261
2
look_self
1
15
1
7069
1
50636
4
5
1
51261
2
look_self
1
57140
1
49900
1
50636
4
5
1
57659
2
look
1
2
1
3
1
50636
4
4
4
5
1
51261
2
tell_lines
1
2487
1
6
1
51261
4
5
1
51261
2
look_self
1
15
1
7069
1
51261
4
5
1
51261
2
look_self
1
57140
1
49900
1
51261
4
5
1
57659
2
l
1
2
1
3
1
51261
4
4
4
5
1
50453
2
tell_lines
1
2487
1
6
1
50453
4
5
1
51261
2
look_self
1
15
1
7069
1
50453
4
5
1
51261
2
look_self
1
57140
1
49900
1
50453
4
5
1
57659
2
l
1
2
1
3
1
50453
4
4
4
5
1
50453
2
tell_lines
1
2487
1
6
1
50453
4
5
1
51261
2
look_self
1
15
1
7069
1
50453
4
5
1
51261
2
look_self
1
57140
1
49900
1
50453
4
5
1
57659
2
l
1
2
1
3
1
50453
4
4
4
5
1
51261
2
tell_lines
1
2487
1
6
1
51261
4
5
1
51261
2
look_self
1
15
1
7069
1
51261
4
5
1
51261
2
look_self
1
57140
1
49900
1
51261
4
5
1
57659
2
l
1
2
1
3
1
51261
4
4
4
5
1
51261
2
tell_lines
1
2487
1
6
1
51261
4
5
1
51261
2
look_self
1
15
1
7069
1
51261
4
5
1
51261
2
look_self
1
57140
1
49900
1
51261
4
5
1
57659
2
l
1
2
1
3
1
51261
4
4
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
51261
2
look_self
1
15
1
7069
1
50636
4
5
1
51261
2
look_self
1
57140
1
49900
1
50636
4
5
1
57659
2
look
1
2
1
3
1
50636
4
4
4
5
1
51261
2
tell_lines
1
2487
1
6
1
51261
4
5
1
51261
2
look_self
1
15
1
7069
1
51261
4
5
1
51261
2
look_self
1
57140
1
49900
1
51261
4
5
1
57659
2
l
1
2
1
3
1
51261
4
4
4
5
1
50636
2
tell_lines
1
2487
1
6
1
50636
4
5
1
51261
2
look_self
1
15
1
7069
1
50636
4
5
1
51261
2
look_self
1
57140
1
49900
1
50636
4
5
1
57659
2
look
1
2
1
3
1
50636
4
4
4
5
1
51261
2
tell_lines
1
2487
1
6
1
51261
4
5
1
51261
2
look_self
1
15
1
7069
1
51261
4
5
1
51261
2
look_self
1
57140
1
49900
1
51261
4
5
1
57659
2
l
1
2
1
3
1
51261
4
6
4
5
1
57871
2
tell_lines
1
2487
1
6
1
57871
4
5
1
25913
2
secure
1
49551
1
29557
1
57871
4
5
1
25913
2
arm
1
49551
1
29557
1
57871
4
5
1
25913
2
say_parse
1
49551
1
29557
1
57871
4
5
1
25913
2
announce
1
49551
1
29557
1
57871
4
5
1
25913
2
say
1
2
1
3
1
57871
4
6
4
5
1
57871
2
tell_lines
1
2487
1
6
1
57871
4
5
1
25913
2
secure
1
49551
1
29557
1
57871
4
5
1
25913
2
arm
1
49551
1
29557
1
57871
4
5
1
25913
2
say_parse
1
49551
1
29557
1
57871
4
5
1
25913
2
announce
1
49551
1
29557
1
57871
4
5
1
25913
2
say
1
2
1
3
1
57871
4
8
4
5
1
54875
2
tell_lines
1
2487
1
6
1
54875
4
5
1
18807
2
@peruse
1
31783
1
18807
1
54875
4
5
1
54875
2
my_huh
1
54875
1
6
1
54875
4
5
1
54875
2
my_huh
1
78
1
7069
1
54875
4
5
1
54875
2
my_huh
1
24442
1
26026
1
54875
4
5
1
54875
2
my_huh
1
57140
1
49900
1
54875
4
5
1
219
2
do_huh
1
54875
1
219
1
54875
4
5
1
17
2
@peruse
1
54875
1
1
1
54875
4
8
4
5
1
53484
2
tell_lines
1
2487
1
6
1
53484
4
5
1
39091
2
secure
1
49551
1
29557
1
53484
4
5
1
39091
2
arm
1
49551
1
29557
1
53484
4
5
1
39091
2
say_parse
1
49551
1
29557
1
53484
4
5
1
39091
2
announce
1
49551
1
29557
1
53484
4
5
1
39091
2
announce
1
48961
1
39357
1
53484
4
5
1
53484
2
say
1
57140
1
49900
1
53484
4
5
1
53484
2
say
1
19845
1
5409
1
53484
4
8
4
5
1
53484
2
tell_lines
1
2487
1
6
1
53484
4
5
1
36284
2
@dox
1
19845
1
36284
1
53484
4
5
1
53484
2
my_huh
1
53484
1
6
1
53484
4
5
1
53484
2
my_huh
1
78
1
7069
1
53484
4
5
1
53484
2
my_huh
1
24442
1
26026
1
53484
4
5
1
53484
2
my_huh
1
57140
1
49900
1
53484
4
5
1
219
2
do_huh
1
53484
1
219
1
53484
4
5
1
39091
2
@dox
1
53484
1
1
1
53484
4
7
4
5
1
57421
2
tell_lines
1
2487
1
6
1
57421
4
5
1
52633
2
secure
1
49551
1
29557
1
57421
4
5
1
52633
2
arm
1
49551
1
29557
1
57421
4
5
1
52633
2
say_parse
1
49551
1
29557
1
57421
4
5
1
52633
2
announce
1
49551
1
29557
1
57421
4
5
1
57421
2
say
1
57140
1
49900
1
57421
4
5
1
57421
2
say
1
19845
1
5409
1
57421
4
2
4
5
1
56673
2
tell_lines
1
2487
1
6
1
56673
4
5
1
26640
2
secure
1
30246
1
16017
1
56673
4
6
4
5
1
57919
2
tell_lines
1
2487
1
6
1
57919
4
5
1
20584
2
secure
1
49551
1
29557
1
57919
4
5
1
20584
2
arm
1
49551
1
29557
1
57919
4
5
1
20584
2
say_parse
1
49551
1
29557
1
57919
4
5
1
20584
2
announce
1
49551
1
29557
1
57919
4
5
1
20584
2
say
1
2
1
3
1
57919
4
2
4
5
1
57280
2
tell_lines
1
2487
1
6
1
57280
4
5
1
57280
2
who_has_quota
1
57280
1
21493
1
57280
4
2
4
5
1
57280
2
tell_lines
1
2487
1
6
1
57280
4
5
1
57280
2
who_has_quota
1
57280
1
21493
1
57280
4
4
4
5
1
57510
2
tell_lines
1
2487
1
6
1
57510
4
5
1
53657
2
secure
1
49551
1
29557
1
57510
4
5
1
53657
2
arm
1
49551
1
29557
1
57510
4
5
1
53657
2
press
1
49551
1
29557
1
57510
4
4
4
5
1
57014
2
tell_lines
1
2487
1
6
1
57014
4
5
1
55869
2
secure
1
49551
1
29557
1
57014
4
5
1
55869
2
arm
1
49551
1
29557
1
57014
4
5
1
55869
2
press
1
49551
1
29557
1
57014
4
7
4
5
1
53702
2
tell_lines
1
2487
1
6
1
53702
4
5
1
42348
2
secure
1
49551
1
29557
1
53702
4
5
1
42348
2
arm
1
49551
1
29557
1
53702
4
5
1
42348
2
say_parse
1
49551
1
29557
1
53702
4
5
1
42348
2
announce
1
49551
1
29557
1
53702
4
5
1
42348
2
announce
1
48961
1
39357
1
53702
4
5
1
53702
2
say
1
57140
1
49900
1
53702
4
8
4
5
1
53484
2
tell_lines
1
2487
1
6
1
53484
4
5
1
36284
2
@dox
1
19845
1
36284
1
53484
4
5
1
53484
2
my_huh
1
53484
1
6
1
53484
4
5
1
53484
2
my_huh
1
78
1
7069
1
53484
4
5
1
53484
2
my_huh
1
24442
1
26026
1
53484
4
5
1
53484
2
my_huh
1
57140
1
49900
1
53484
4
5
1
219
2
do_huh
1
53484
1
219
1
53484
4
5
1
39091
2
@dox
1
53484
1
1
1
53484
4
7
4
5
1
57882
2
tell_lines
1
2487
1
6
1
57882
4
5
1
57882
2
receive_page
1
2487
1
6
1
57882
4
5
1
57882
2
receive_page
1
47
1
3133
1
57882
4
5
1
57882
2
receive_page
1
2487
1
7069
1
57882
4
5
1
-1
2
1
57882
1
-1
1
57882
4
5
1
57882
2
eval_cmd_string
1
57882
1
217
1
57882
4
5
1
57882
2
eval
1
57882
1
217
1
57882
4
7
4
5
1
57882
2
tell_lines
1
2487
1
6
1
57882
4
5
1
57882
2
receive_page
1
2487
1
6
1
57882
4
5
1
57882
2
receive_page
1
47
1
3133
1
57882
4
5
1
57882
2
receive_page
1
2487
1
7069
1
57882
4
5
1
-1
2
1
57882
1
-1
1
57882
4
5
1
57882
2
eval_cmd_string
1
57882
1
217
1
57882
4
5
1
57882
2
eval
1
57882
1
217
1
57882
4
4
4
5
1
13412
2
tell_lines
1
2487
1
6
1
13412
4
5
1
42109
2
do_events
1
13412
1
42109
1
13412
4
5
1
42109
2
schedule_event
1
13412
1
42109
1
13412
4
5
1
42109
2
start
1
13412
1
42109
1
13412
4
7
4
5
1
49551
2
tell_lines
1
2487
1
6
1
55988
4
5
1
24380
2
enterfunc
1
49551
1
29557
1
55988
4
5
1
55988
2
moveto
1
55988
1
1
1
55988
4
5
1
55988
2
moveto
1
47
1
6
1
55988
4
5
1
55988
2
moveto
1
47
1
3133
1
55988
4
5
1
33355
2
leave
1
4290
1
6145
1
55988
4
5
1
33355
2
leave
1
24436
1
26152
1
55988
4
12
4
5
1
49551
2
tell_lines
1
2487
1
6
1
56720
4
5
1
13507
2
enterfunc
1
49551
1
29557
1
56720
4
5
1
13507
2
enterfunc
1
50053
1
13507
1
56720
4
5
1
56720
2
moveto
1
56720
1
1
1
56720
4
5
1
56720
2
moveto
1
47
1
6
1
56720
4
5
1
56720
2
moveto
1
47
1
3133
1
56720
4
5
1
56720
2
moveto
1
78
1
7069
1
56720
4
5
1
56720
2
moveto
1
3685
1
8855
1
56720
4
5
1
56720
2
moveto
1
57140
1
49900
1
56720
4
5
1
56720
2
moveto
1
19845
1
5409
1
56720
4
5
1
11001
2
out
1
4290
1
6145
1
56720
4
5
1
11001
2
out
1
24436
1
26152
1
56720
4
7
4
5
1
49551
2
tell_lines
1
2487
1
6
1
55988
4
5
1
24380
2
enterfunc
1
49551
1
29557
1
55988
4
5
1
55988
2
moveto
1
55988
1
1
1
55988
4
5
1
55988
2
moveto
1
47
1
6
1
55988
4
5
1
55988
2
moveto
1
47
1
3133
1
55988
4
5
1
56183
2
leave
1
4290
1
6145
1
55988
4
5
1
56183
2
leave
1
24436
1
26152
1
55988
4
8
4
5
1
49551
2
tell_lines
1
2487
1
6
1
55988
4
5
1
45676
2
enterfunc
1
49551
1
29557
1
55988
4
5
1
55988
2
moveto
1
55988
1
1
1
55988
4
5
1
55988
2
moveto
1
47
1
6
1
55988
4
5
1
55988
2
moveto
1
47
1
3133
1
55988
4
5
1
22213
2
move
1
2
1
7
1
55988
4
5
1
22213
2
invoke
1
2
1
7
1
55988
4
5
1
24380
2
e
1
2
1
3
1
55988
4
10
4
5
1
49551
2
tell_lines
1
2487
1
6
1
49551
4
5
1
13507
2
enterfunc
1
49551
1
29557
1
49551
4
5
1
13507
2
enterfunc
1
50053
1
13507
1
49551
4
5
1
49551
2
moveto
1
49551
1
1
1
49551
4
5
1
49551
2
moveto
1
47
1
6
1
49551
4
5
1
49551
2
moveto
1
47
1
3133
1
49551
4
5
1
49551
2
moveto
1
78
1
7069
1
49551
4
5
1
49551
2
moveto
1
3685
1
8855
1
49551
4
5
1
49551
2
moveto
1
57140
1
49900
1
49551
4
5
1
5443
2
q
1
6336
1
5400
1
49551
4
8
4
5
1
49551
2
tell_lines
1
2487
1
6
1
55988
4
5
1
24380
2
enterfunc
1
49551
1
29557
1
55988
4
5
1
55988
2
moveto
1
55988
1
1
1
55988
4
5
1
55988
2
moveto
1
47
1
6
1
55988
4
5
1
55988
2
moveto
1
47
1
3133
1
55988
4
5
1
31277
2
move
1
2
1
7
1
55988
4
5
1
31277
2
invoke
1
2
1
7
1
55988
4
5
1
45676
2
w
1
2
1
3
1
55988
4
9
4
5
1
49551
2
tell_lines
1
2487
1
6
1
55988
4
5
1
13507
2
enterfunc
1
49551
1
29557
1
55988
4
5
1
13507
2
enterfunc
1
50053
1
13507
1
55988
4
5
1
55988
2
moveto
1
55988
1
1
1
55988
4
5
1
55988
2
moveto
1
47
1
6
1
55988
4
5
1
55988
2
moveto
1
47
1
3133
1
55988
4
5
1
54185
2
move
1
2
1
7
1
55988
4
5
1
54185
2
invoke
1
2
1
7
1
55988
4
5
1
24380
2
n
1
2
1
3
1
55988
4
8
4
5
1
49551
2
tell_lines
1
2487
1
6
1
55988
4
5
1
13507
2
enterfunc
1
49551
1
29557
1
55988
4
5
1
13507
2
enterfunc
1
50053
1
13507
1
55988
4
5
1
56183
2
moveto
1
55988
1
1
1
55988
4
5
1
56183
2
moveto
1
6349
1
3
1
55988
4
5
1
56183
2
moveto
1
4290
1
6145
1
55988
4
5
1
56183
2
moveto
1
24436
1
26152
1
55988
4
5
1
56183
2
drop
1
4290
1
6145
1
55988
4
8
4
5
1
49551
2
tell_lines
1
2487
1
6
1
55988
4
5
1
13507
2
enterfunc
1
49551
1
29557
1
55988
4
5
1
13507
2
enterfunc
1
50053
1
13507
1
55988
4
5
1
55988
2
moveto
1
55988
1
1
1
55988
4
5
1
55988
2
moveto
1
47
1
6
1
55988
4
5
1
55988
2
moveto
1
47
1
3133
1
55988
4
5
1
56183
2
leave
1
4290
1
6145
1
55988
4
5
1
56183
2
leave
1
24436
1
26152
1
55988
4
10
4
5
1
49551
2
tell_lines
1
2487
1
6
1
56310
4
5
1
23829
2
enterfunc
1
49551
1
29557
1
56310
4
5
1
56310
2
moveto
1
56310
1
1
1
56310
4
5
1
56310
2
moveto
1
47
1
6
1
56310
4
5
1
56310
2
moveto
1
47
1
3133
1
56310
4
5
1
56310
2
moveto
1
78
1
7069
1
56310
4
5
1
56310
2
moveto
1
3685
1
8855
1
56310
4
5
1
56310
2
teleport
1
47
1
3133
1
56310
4
5
1
56310
2
teleport
1
3920
1
33337
1
56310
4
5
1
56310
2
@join
1
47
1
3133
1
56310
4
10
4
5
1
49551
2
tell_lines
1
2487
1
6
1
49551
4
5
1
13507
2
enterfunc
1
49551
1
29557
1
49551
4
5
1
13507
2
enterfunc
1
50053
1
13507
1
49551
4
5
1
49551
2
moveto
1
49551
1
1
1
49551
4
5
1
49551
2
moveto
1
47
1
6
1
49551
4
5
1
49551
2
moveto
1
47
1
3133
1
49551
4
5
1
49551
2
moveto
1
78
1
7069
1
49551
4
5
1
49551
2
moveto
1
3685
1
8855
1
49551
4
5
1
49551
2
moveto
1
57140
1
49900
1
49551
4
5
1
5443
2
q
1
6336
1
5400
1
49551
4
12
4
5
1
49551
2
tell_lines
1
2487
1
6
1
54787
4
5
1
13507
2
enterfunc
1
49551
1
29557
1
54787
4
5
1
13507
2
enterfunc
1
50053
1
13507
1
54787
4
5
1
54787
2
moveto
1
54787
1
1
1
54787
4
5
1
54787
2
moveto
1
47
1
6
1
54787
4
5
1
54787
2
moveto
1
47
1
3133
1
54787
4
5
1
54787
2
moveto
1
78
1
7069
1
54787
4
5
1
54787
2
moveto
1
3685
1
8855
1
54787
4
5
1
54787
2
moveto
1
57140
1
49900
1
54787
4
5
1
54787
2
moveto
1
19845
1
5409
1
54787
4
5
1
54560
2
exit
1
4290
1
6145
1
54787
4
5
1
54560
2
exit
1
24436
1
26152
1
54787
4
10
4
5
1
49551
2
tell_lines
1
2487
1
6
1
50204
4
5
1
25972
2
enterfunc
1
49551
1
29557
1
50204
4
5
1
50204
2
moveto
1
50204
1
1
1
50204
4
5
1
50204
2
moveto
1
47
1
6
1
50204
4
5
1
50204
2
moveto
1
47
1
3133
1
50204
4
5
1
50204
2
moveto
1
78
1
7069
1
50204
4
5
1
50204
2
moveto
1
3685
1
8855
1
50204
4
5
1
50204
2
moveto
1
50204
1
50204
1
50204
4
5
1
5746
2
done
1
6336
1
5400
1
50204
4
5
1
5746
2
send
1
6349
1
5746
1
50204
4
10
4
5
1
49551
2
tell_lines
1
2487
1
6
1
50176
4
5
1
51186
2
enterfunc
1
49551
1
29557
1
50176
4
5
1
50176
2
moveto
1
50176
1
1
1
50176
4
5
1
50176
2
moveto
1
47
1
6
1
50176
4
5
1
50176
2
moveto
1
47
1
3133
1
50176
4
5
1
50176
2
moveto
1
78
1
7069
1
50176
4
5
1
50176
2
moveto
1
3685
1
8855
1
50176
4
5
1
50176
2
moveto
1
57140
1
49900
1
50176
4
5
1
50176
2
moveto
1
50176
1
50176
1
50176
4
5
1
50176
2
home
1
57140
1
49900
1
50176
4
11
4
5
1
49551
2
tell_lines
1
2487
1
6
1
54099
4
5
1
30054
2
enterfunc
1
49551
1
29557
1
54099
4
5
1
54099
2
moveto
1
54099
1
1
1
54099
4
5
1
54099
2
moveto
1
47
1
6
1
54099
4
5
1
54099
2
moveto
1
47
1
3133
1
54099
4
5
1
54099
2
moveto
1
78
1
7069
1
54099
4
5
1
54099
2
moveto
1
3685
1
8855
1
54099
4
5
1
54099
2
moveto
1
57140
1
49900
1
54099
4
5
1
54099
2
moveto
1
19845
1
5409
1
54099
4
5
1
54099
2
moveto
1
54099
1
54099
1
54099
4
5
1
54099
2
home
1
57140
1
49900
1
54099
4
9
4
5
1
49551
2
tell_lines
1
2487
1
6
1
54787
4
5
1
35428
2
enterfunc
1
49551
1
29557
1
54787
4
5
1
54560
2
moveto
1
54787
1
1
1
54787
4
5
1
54560
2
moveto
1
6349
1
3
1
54787
4
5
1
54560
2
moveto
1
4290
1
6145
1
54787
4
5
1
54560
2
moveto
1
24436
1
26152
1
54787
4
5
1
54560
2
warp_to
1
24436
1
1452
1
54787
4
5
1
54560
2
warp_to
1
24436
1
26152
1
54787
4
5
1
54560
2
engage
1
24436
1
26152
1
54787
4
7
4
5
1
49551
2
tell_lines
1
2487
1
6
1
57807
4
5
1
53397
2
enterfunc
1
49551
1
29557
1
57807
4
5
1
57807
2
moveto
1
57807
1
1
1
57807
4
5
1
57807
2
moveto
1
47
1
6
1
57807
4
5
1
57807
2
moveto
1
47
1
3133
1
57807
4
5
1
57807
2
teleport
1
47
1
3133
1
57807
4
5
1
57807
2
@join
1
47
1
3133
1
57807
4
10
4
5
1
49551
2
tell_lines
1
2487
1
6
1
49551
4
5
1
13507
2
enterfunc
1
49551
1
29557
1
49551
4
5
1
13507
2
enterfunc
1
50053
1
13507
1
49551
4
5
1
33355
2
moveto
1
30246
1
1
1
49551
4
5
1
33355
2
moveto
1
6349
1
3
1
49551
4
5
1
33355
2
moveto
1
4290
1
6145
1
49551
4
5
1
33355
2
moveto
1
24436
1
26152
1
49551
4
5
1
49551
2
teleport
1
47
1
3133
1
49551
4
5
1
49551
2
teleport
1
3920
1
33337
1
49551
4
5
1
49551
2
@move
1
47
1
3133
1
49551
4
11
4
5
1
49551
2
tell_lines
1
2487
1
6
1
54787
4
5
1
35428
2
enterfunc
1
49551
1
29557
1
54787
4
5
1
54787
2
moveto
1
54787
1
1
1
54787
4
5
1
54787
2
moveto
1
47
1
6
1
54787
4
5
1
54787
2
moveto
1
47
1
3133
1
54787
4
5
1
54787
2
moveto
1
78
1
7069
1
54787
4
5
1
54787
2
moveto
1
3685
1
8855
1
54787
4
5
1
54787
2
moveto
1
57140
1
49900
1
54787
4
5
1
54787
2
moveto
1
19845
1
5409
1
54787
4
5
1
54560
2
exit
1
4290
1
6145
1
54787
4
5
1
54560
2
exit
1
24436
1
26152
1
54787
4
8
4
5
1
49551
2
tell_lines
1
2487
1
6
1
50176
4
5
1
45676
2
enterfunc
1
49551
1
29557
1
50176
4
5
1
18438
2
moveto
1
50176
1
1
1
50176
4
5
1
18438
2
moveto
1
6349
1
3
1
50176
4
5
1
18438
2
moveto
1
4290
1
6145
1
50176
4
5
1
18438
2
moveto
1
24436
1
26152
1
50176
4
5
1
13507
2
do_remove
1
50053
1
13507
1
50176
4
5
1
13507
2
do_remove
1
50053
1
13507
1
50176
4
2
4
5
1
30246
2
tell_lines
1
2487
1
6
1
30246
4
5
1
5987
2
list
1
30246
1
5987
1
30246
4
2
4
5
1
30246
2
tell_lines
1
2487
1
6
1
30246
4
5
1
5987
2
list
1
30246
1
5987
1
30246
4
6
4
5
1
55164
2
tell_lines
1
2487
1
6
1
55164
4
5
1
54023
2
secure
1
49551
1
29557
1
55164
4
5
1
54023
2
arm
1
49551
1
29557
1
55164
4
5
1
54023
2
say_parse
1
49551
1
29557
1
55164
4
5
1
54023
2
announce
1
49551
1
29557
1
55164
4
5
1
55164
2
say
1
57140
1
49900
1
55164
4
4
4
5
1
53502
2
tell_lines
1
2487
1
6
1
53502
4
5
1
53245
2
secure
1
49551
1
29557
1
53502
4
5
1
53245
2
arm
1
49551
1
29557
1
53502
4
5
1
53245
2
press
1
49551
1
29557
1
53502
4
4
4
5
1
50176
2
tell_lines
1
2487
1
6
1
50176
4
5
1
13507
2
secure
1
49551
1
29557
1
50176
4
5
1
13507
2
arm
1
49551
1
29557
1
50176
4
5
1
13507
2
press
1
49551
1
29557
1
50176
4
8
4
5
1
51261
2
tell_lines
1
2487
1
6
1
51261
4
5
1
18807
2
@peruse
1
33119
1
18807
1
51261
4
5
1
51261
2
my_huh
1
51261
1
6
1
51261
4
5
1
51261
2
my_huh
1
78
1
7069
1
51261
4
5
1
51261
2
my_huh
1
24442
1
26026
1
51261
4
5
1
51261
2
my_huh
1
57140
1
49900
1
51261
4
5
1
219
2
do_huh
1
51261
1
219
1
51261
4
5
1
57659
2
@peruse
1
51261
1
1
1
51261
4
7
4
5
1
46470
2
tell_lines
1
2487
1
6
1
46470
4
5
1
47192
2
secure
1
49551
1
29557
1
46470
4
5
1
47192
2
arm
1
49551
1
29557
1
46470
4
5
1
47192
2
say_parse
1
49551
1
29557
1
46470
4
5
1
47192
2
announce
1
49551
1
29557
1
46470
4
5
1
47192
2
say
1
2
1
3
1
46470
4
5
1
46470
2
say
1
31783
1
4803
1
46470
4
4
4
5
1
56629
2
tell_lines
1
2487
1
6
1
56629
4
5
1
30286
2
secure
1
49551
1
29557
1
56629
4
5
1
30286
2
arm
1
49551
1
29557
1
56629
4
5
1
30286
2
press
1
49551
1
29557
1
56629
4
4
4
5
1
56629
2
tell_lines
1
2487
1
6
1
56629
4
5
1
30286
2
secure
1
49551
1
29557
1
56629
4
5
1
30286
2
arm
1
49551
1
29557
1
56629
4
5
1
30286
2
press
1
49551
1
29557
1
56629
4
4
4
5
1
56629
2
tell_lines
1
2487
1
6
1
56629
4
5
1
30286
2
secure
1
49551
1
29557
1
56629
4
5
1
30286
2
arm
1
49551
1
29557
1
56629
4
5
1
30286
2
press
1
49551
1
29557
1
56629
4
4
4
5
1
56629
2
tell_lines
1
2487
1
6
1
56629
4
5
1
30286
2
secure
1
49551
1
29557
1
56629
4
5
1
30286
2
arm
1
49551
1
29557
1
56629
4
5
1
30286
2
press
1
49551
1
29557
1
56629
4
7
4
5
1
51902
2
tell_lines
1
2487
1
6
1
51902
4
5
1
53151
2
secure
1
49551
1
29557
1
51902
4
5
1
53151
2
arm
1
49551
1
29557
1
51902
4
5
1
53151
2
say_parse
1
49551
1
29557
1
51902
4
5
1
53151
2
announce
1
49551
1
29557
1
51902
4
5
1
53151
2
say
1
2
1
3
1
51902
4
5
1
51902
2
say
1
31783
1
4803
1
51902
4
2
4
5
1
56651
2
tell_lines
1
2487
1
6
1
56651
4
5
1
56651
2
@peruse
1
31783
1
4803
1
56651
4
7
4
5
1
34107
2
tell_lines
1
2487
1
6
1
34107
4
5
1
7944
2
secure
1
49551
1
29557
1
34107
4
5
1
7944
2
arm
1
49551
1
29557
1
34107
4
5
1
7944
2
say_parse
1
49551
1
29557
1
34107
4
5
1
7944
2
announce
1
49551
1
29557
1
34107
4
5
1
7944
2
say
1
2
1
3
1
34107
4
5
1
34107
2
say
1
31783
1
4803
1
34107
4
4
4
5
1
57810
2
tell_lines
1
2487
1
6
1
57810
4
5
1
25980
2
secure
1
49551
1
29557
1
57810
4
5
1
25980
2
arm
1
49551
1
29557
1
57810
4
5
1
25980
2
press
1
49551
1
29557
1
57810
4
7
4
5
1
50198
2
tell_lines
1
2487
1
6
1
50198
4
5
1
42772
2
secure
1
49551
1
29557
1
50198
4
5
1
42772
2
arm
1
49551
1
29557
1
50198
4
5
1
42772
2
say_parse
1
49551
1
29557
1
50198
4
5
1
42772
2
announce
1
49551
1
29557
1
50198
4
5
1
42772
2
say
1
2
1
3
1
50198
4
5
1
50198
2
say
1
31783
1
4803
1
50198
4
16
4
5
1
30246
2
tell_lines
1
2487
1
6
1
30246
4
5
1
5987
2
secure_take
1
30246
1
5987
1
30246
4
5
1
5987
2
exitfunc
1
30246
1
5987
1
30246
4
5
1
13393
2
moveto
1
2693
1
1
1
30246
4
5
1
13393
2
moveto
1
2
1
5
1
30246
4
5
1
13393
2
moveto
1
2693
1
517
1
30246
4
5
1
8085
2
buy_item
1
50459
1
8085
1
30246
4
5
1
8085
2
Request_Sale
1
50459
1
8085
1
30246
4
5
1
8085
2
rx_verb
1
19845
1
6475
1
30246
4
5
1
8085
2
rx_list
1
19845
1
6475
1
30246
4
5
1
8085
2
parse_say
1
19845
1
6475
1
30246
4
5
1
8085
2
notify_say
1
19845
1
6475
1
30246
4
5
1
8085
2
tell
1
19845
1
6475
1
30246
4
5
1
5987
2
announce
1
2
1
3
1
30246
4
5
1
5987
2
announce
1
2693
1
258
1
30246
4
5
1
30246
2
say
1
57140
1
49900
1
30246
4
4
4
5
1
51626
2
tell_lines
1
2487
1
6
1
51626
4
5
1
41034
2
secure
1
49551
1
29557
1
51626
4
5
1
41034
2
arm
1
49551
1
29557
1
51626
4
5
1
41034
2
press
1
49551
1
29557
1
51626
4
8
4
5
1
50224
2
tell_lines
1
2487
1
6
1
50224
4
5
1
18807
2
@peruse
1
33119
1
18807
1
50224
4
5
1
50224
2
my_huh
1
50224
1
6
1
50224
4
5
1
50224
2
my_huh
1
78
1
7069
1
50224
4
5
1
50224
2
my_huh
1
24442
1
26026
1
50224
4
5
1
50224
2
my_huh
1
57140
1
49900
1
50224
4
5
1
219
2
do_huh
1
50224
1
219
1
50224
4
5
1
51400
2
@peruse
1
50224
1
1
1
50224
4
8
4
5
1
49397
2
tell_lines
1
2487
1
6
1
49397
4
5
1
37404
2
@peruse
1
19845
1
37404
1
49397
4
5
1
49397
2
my_huh
1
49397
1
6
1
49397
4
5
1
49397
2
my_huh
1
78
1
7069
1
49397
4
5
1
49397
2
my_huh
1
24442
1
26026
1
49397
4
5
1
49397
2
my_huh
1
57140
1
49900
1
49397
4
5
1
219
2
do_huh
1
49397
1
219
1
49397
4
5
1
27861
2
@peruse
1
49397
1
1
1
49397
4
11
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
50367
2
moveto
1
50367
1
50367
1
50367
4
5
1
5443
2
done
1
6336
1
5400
1
50367
4
3
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
l
1
2693
1
258
1
50367
4
11
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
50367
2
moveto
1
50367
1
50367
1
50367
4
5
1
5443
2
done
1
6336
1
5400
1
50367
4
11
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
50367
2
moveto
1
50367
1
50367
1
50367
4
5
1
5443
2
done
1
6336
1
5400
1
50367
4
3
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
l
1
2693
1
258
1
50367
4
3
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
l
1
2693
1
258
1
50367
4
3
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
l
1
2693
1
258
1
50367
4
3
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
l
1
2693
1
258
1
50367
4
3
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
l
1
2693
1
258
1
50367
4
2
4
5
1
53466
2
tell_lines
1
2487
1
6
1
53466
4
5
1
53466
2
@peruse
1
31783
1
4803
1
53466
4
4
4
5
1
50290
2
tell_lines
1
2487
1
6
1
50290
4
5
1
41318
2
secure
1
49551
1
29557
1
50290
4
5
1
41318
2
arm
1
49551
1
29557
1
50290
4
5
1
41318
2
press
1
49551
1
29557
1
50290
4
7
4
5
1
57531
2
tell_lines
1
2487
1
6
1
57531
4
5
1
53249
2
secure
1
49551
1
29557
1
57531
4
5
1
53249
2
arm
1
49551
1
29557
1
57531
4
5
1
53249
2
say_parse
1
49551
1
29557
1
57531
4
5
1
53249
2
announce
1
49551
1
29557
1
57531
4
5
1
53249
2
say
1
2
1
3
1
57531
4
5
1
57531
2
say
1
31783
1
4803
1
57531
4
6
4
5
1
56607
2
tell_lines
1
2487
1
6
1
56607
4
5
1
54479
2
secure
1
49551
1
29557
1
56607
4
5
1
54479
2
arm
1
49551
1
29557
1
56607
4
5
1
54479
2
say_parse
1
49551
1
29557
1
56607
4
5
1
54479
2
announce
1
49551
1
29557
1
56607
4
5
1
56607
2
say
1
57140
1
49900
1
56607
4
2
4
5
1
57140
2
tell_lines
1
2487
1
6
1
41057
4
5
1
41057
2
@fedit
1
41057
1
41057
1
41057
4
8
4
5
1
57421
2
tell_lines
1
2487
1
6
1
57421
4
5
1
18807
2
@peruse
1
33119
1
18807
1
57421
4
5
1
57421
2
my_huh
1
57421
1
6
1
57421
4
5
1
57421
2
my_huh
1
78
1
7069
1
57421
4
5
1
57421
2
my_huh
1
24442
1
26026
1
57421
4
5
1
57421
2
my_huh
1
57140
1
49900
1
57421
4
5
1
219
2
do_huh
1
57421
1
219
1
57421
4
5
1
43787
2
@peruse
1
57421
1
1
1
57421
4
8
4
5
1
57135
2
tell_lines
1
2487
1
6
1
57135
4
5
1
18807
2
@peruse
1
33119
1
18807
1
57135
4
5
1
57135
2
my_huh
1
57135
1
6
1
57135
4
5
1
57135
2
my_huh
1
78
1
7069
1
57135
4
5
1
57135
2
my_huh
1
24442
1
26026
1
57135
4
5
1
57135
2
my_huh
1
57140
1
49900
1
57135
4
5
1
219
2
do_huh
1
57135
1
219
1
57135
4
5
1
53512
2
@peruse
1
57135
1
1
1
57135
4
2
4
5
1
50266
2
tell_lines
1
2487
1
6
1
50266
4
5
1
50266
2
@peruse
1
31783
1
4803
1
50266
4
2
4
5
1
56361
2
tell_lines
1
2487
1
6
1
56361
4
5
1
50484
2
print
1
2487
1
5400
1
56361
4
2
4
5
1
56361
2
tell_lines
1
2487
1
6
1
56361
4
5
1
50484
2
print
1
2487
1
5400
1
56361
4
4
4
5
1
53465
2
tell_lines
1
2487
1
6
1
53465
4
5
1
5008
2
secure
1
49551
1
29557
1
53465
4
5
1
5008
2
arm
1
49551
1
29557
1
53465
4
5
1
5008
2
press
1
49551
1
29557
1
53465
4
4
4
5
1
57810
2
tell_lines
1
2487
1
6
1
57810
4
5
1
25980
2
secure
1
49551
1
29557
1
57810
4
5
1
25980
2
arm
1
49551
1
29557
1
57810
4
5
1
25980
2
press
1
49551
1
29557
1
57810
4
13
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
50367
2
moveto
1
50367
1
50367
1
50367
4
5
1
50367
2
teleport
1
47
1
3133
1
50367
4
5
1
50367
2
teleport
1
3920
1
33337
1
50367
4
5
1
50367
2
@go
1
47
1
3133
1
50367
4
3
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
confunc
1
2
1
3
1
50367
4
11
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
50367
2
moveto
1
50367
1
50367
1
50367
4
5
1
5443
2
done
1
6336
1
5400
1
50367
4
11
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
50367
2
moveto
1
50367
1
50367
1
50367
4
5
1
5443
2
done
1
6336
1
5400
1
50367
4
11
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
50367
2
moveto
1
50367
1
50367
1
50367
4
5
1
5443
2
done
1
6336
1
5400
1
50367
4
11
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
50367
2
moveto
1
50367
1
50367
1
50367
4
5
1
5443
2
done
1
6336
1
5400
1
50367
4
11
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
50367
2
moveto
1
50367
1
50367
1
50367
4
5
1
5443
2
done
1
6336
1
5400
1
50367
4
11
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
50367
2
moveto
1
50367
1
50367
1
50367
4
5
1
5443
2
done
1
6336
1
5400
1
50367
4
11
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
50367
2
moveto
1
50367
1
50367
1
50367
4
5
1
5443
2
done
1
6336
1
5400
1
50367
4
7
4
5
1
56872
2
tell_lines
1
2487
1
6
1
56872
4
5
1
39439
2
secure
1
49551
1
29557
1
56872
4
5
1
39439
2
arm
1
49551
1
29557
1
56872
4
5
1
39439
2
say_parse
1
49551
1
29557
1
56872
4
5
1
39439
2
announce
1
49551
1
29557
1
56872
4
5
1
56872
2
say
1
57140
1
49900
1
56872
4
5
1
56872
2
say
1
19845
1
5409
1
56872
4
8
4
5
1
53484
2
tell_lines
1
2487
1
6
1
53484
4
5
1
36284
2
@inspect
1
19845
1
36284
1
53484
4
5
1
53484
2
my_huh
1
53484
1
6
1
53484
4
5
1
53484
2
my_huh
1
78
1
7069
1
53484
4
5
1
53484
2
my_huh
1
24442
1
26026
1
53484
4
5
1
53484
2
my_huh
1
57140
1
49900
1
53484
4
5
1
219
2
do_huh
1
53484
1
219
1
53484
4
5
1
42023
2
@inspect
1
53484
1
1
1
53484
4
8
4
5
1
53484
2
tell_lines
1
2487
1
6
1
53484
4
5
1
36284
2
@dox
1
19845
1
36284
1
53484
4
5
1
53484
2
my_huh
1
53484
1
6
1
53484
4
5
1
53484
2
my_huh
1
78
1
7069
1
53484
4
5
1
53484
2
my_huh
1
24442
1
26026
1
53484
4
5
1
53484
2
my_huh
1
57140
1
49900
1
53484
4
5
1
219
2
do_huh
1
53484
1
219
1
53484
4
5
1
43542
2
@dox
1
53484
1
1
1
53484
4
7
4
5
1
26343
2
tell_lines
1
2487
1
6
1
26343
4
5
1
18807
2
@peruse
1
33119
1
18807
1
26343
4
5
1
26343
2
my_huh
1
26343
1
6
1
26343
4
5
1
26343
2
my_huh
1
78
1
7069
1
26343
4
5
1
26343
2
my_huh
1
24442
1
26026
1
26343
4
5
1
219
2
do_huh
1
26343
1
219
1
26343
4
5
1
38937
2
@peruse
1
26343
1
1
1
26343
4
6
4
5
1
23276
2
tell_lines
1
2487
1
6
1
23276
4
5
1
40878
2
secure
1
49551
1
29557
1
23276
4
5
1
40878
2
arm
1
49551
1
29557
1
23276
4
5
1
40878
2
say_parse
1
49551
1
29557
1
23276
4
5
1
40878
2
announce
1
49551
1
29557
1
23276
4
5
1
23276
2
say
1
57140
1
49900
1
23276
4
4
4
5
1
57042
2
tell_lines
1
2487
1
6
1
57042
4
5
1
46611
2
secure
1
49551
1
29557
1
57042
4
5
1
46611
2
arm
1
49551
1
29557
1
57042
4
5
1
46611
2
press
1
49551
1
29557
1
57042
4
8
4
5
1
56263
2
tell_lines
1
2487
1
6
1
56263
4
5
1
18807
2
@peruse
1
33119
1
18807
1
56263
4
5
1
56263
2
my_huh
1
56263
1
6
1
56263
4
5
1
56263
2
my_huh
1
78
1
7069
1
56263
4
5
1
56263
2
my_huh
1
24442
1
26026
1
56263
4
5
1
56263
2
my_huh
1
57140
1
49900
1
56263
4
5
1
219
2
do_huh
1
56263
1
219
1
56263
4
5
1
55879
2
@peruse
1
56263
1
1
1
56263
4
7
4
5
1
56872
2
tell_lines
1
2487
1
6
1
56872
4
5
1
39439
2
secure
1
49551
1
29557
1
56872
4
5
1
39439
2
arm
1
49551
1
29557
1
56872
4
5
1
39439
2
say_parse
1
49551
1
29557
1
56872
4
5
1
39439
2
announce
1
49551
1
29557
1
56872
4
5
1
56872
2
say
1
57140
1
49900
1
56872
4
5
1
56872
2
say
1
19845
1
5409
1
56872
4
2
4
5
1
54875
2
tell_lines
1
2487
1
6
1
54875
4
5
1
54875
2
@peruse
1
31783
1
4803
1
54875
4
2
4
5
1
37781
2
tell_lines
1
2487
1
6
1
37781
4
5
1
37781
2
@peruse
1
37781
1
37781
1
37781
4
7
4
5
1
57531
2
tell_lines
1
2487
1
6
1
57531
4
5
1
53249
2
secure
1
49551
1
29557
1
57531
4
5
1
53249
2
arm
1
49551
1
29557
1
57531
4
5
1
53249
2
say_parse
1
49551
1
29557
1
57531
4
5
1
53249
2
announce
1
49551
1
29557
1
57531
4
5
1
53249
2
say
1
2
1
3
1
57531
4
5
1
57531
2
say
1
31783
1
4803
1
57531
4
4
4
5
1
57990
2
tell_lines
1
2487
1
6
1
57990
4
5
1
13610
2
secure
1
49551
1
29557
1
57990
4
5
1
13610
2
arm
1
49551
1
29557
1
57990
4
5
1
13610
2
press
1
49551
1
29557
1
57990
4
6
4
5
1
57998
2
tell_lines
1
2487
1
6
1
57998
4
5
1
57998
2
look_self
1
2
1
1
1
57998
4
5
1
57998
2
look_self
1
2
1
6
1
57998
4
5
1
31788
2
special_look
1
31783
1
9805
1
57998
4
5
1
31788
2
l
1
31783
1
9805
1
57998
4
5
1
31788
2
l
1
49551
1
29557
1
57998
4
2
4
5
1
50464
2
tell_lines
1
2487
1
6
1
50464
4
5
1
50464
2
@peruse
1
31783
1
4803
1
50464
4
8
4
5
1
39670
2
tell_lines
1
2487
1
6
1
39670
4
5
1
5023
2
spamhelp
1
37636
1
5023
1
39670
4
5
1
39670
2
my_huh
1
39670
1
6
1
39670
4
5
1
39670
2
my_huh
1
78
1
7069
1
39670
4
5
1
39670
2
my_huh
1
24442
1
26026
1
39670
4
5
1
39670
2
my_huh
1
57140
1
49900
1
39670
4
5
1
219
2
do_huh
1
39670
1
219
1
39670
4
5
1
5173
2
spamhelp
1
39670
1
1
1
39670
4
6
4
5
1
57413
2
tell_lines
1
2487
1
6
1
57413
4
5
1
50866
2
secure
1
49551
1
29557
1
57413
4
5
1
50866
2
arm
1
49551
1
29557
1
57413
4
5
1
50866
2
say_parse
1
49551
1
29557
1
57413
4
5
1
50866
2
announce
1
49551
1
29557
1
57413
4
5
1
50866
2
say
1
2
1
3
1
57413
4
8
4
5
1
57421
2
tell_lines
1
2487
1
6
1
57421
4
5
1
18807
2
@peruse
1
33119
1
18807
1
57421
4
5
1
57421
2
my_huh
1
57421
1
6
1
57421
4
5
1
57421
2
my_huh
1
78
1
7069
1
57421
4
5
1
57421
2
my_huh
1
24442
1
26026
1
57421
4
5
1
57421
2
my_huh
1
57140
1
49900
1
57421
4
5
1
219
2
do_huh
1
57421
1
219
1
57421
4
5
1
40840
2
@peruse
1
57421
1
1
1
57421
4
13
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
50367
2
moveto
1
50367
1
50367
1
50367
4
5
1
50367
2
teleport
1
47
1
3133
1
50367
4
5
1
50367
2
teleport
1
3920
1
33337
1
50367
4
5
1
50367
2
@go
1
47
1
3133
1
50367
4
9
4
5
1
50634
2
tell_lines
1
2487
1
6
1
50634
4
5
1
27804
2
secure
1
30246
1
16017
1
50634
4
5
1
27804
2
arm
1
30246
1
16017
1
50634
4
5
1
27804
2
say_parse
1
30246
1
16017
1
50634
4
5
1
27804
2
announce_all
1
30246
1
16017
1
50634
4
5
1
27804
2
tell
1
4290
1
6145
1
50634
4
5
1
50986
2
announce
1
31783
1
9805
1
50634
4
5
1
50986
2
announce
1
49551
1
29557
1
50634
4
5
1
50634
2
say
1
57140
1
49900
1
50634
4
6
4
5
1
55707
2
tell_lines
1
2487
1
6
1
55707
4
5
1
36264
2
secure
1
49551
1
29557
1
55707
4
5
1
36264
2
arm
1
49551
1
29557
1
55707
4
5
1
36264
2
say_parse
1
49551
1
29557
1
55707
4
5
1
36264
2
announce
1
49551
1
29557
1
55707
4
5
1
55707
2
say
1
57140
1
49900
1
55707
4
6
4
5
1
57998
2
tell_lines
1
2487
1
6
1
57998
4
5
1
31788
2
secure
1
49551
1
29557
1
57998
4
5
1
31788
2
arm
1
49551
1
29557
1
57998
4
5
1
31788
2
say_parse
1
49551
1
29557
1
57998
4
5
1
31788
2
announce
1
49551
1
29557
1
57998
4
5
1
31788
2
say
1
2
1
3
1
57998
4
15
4
5
1
56998
2
tell_lines
1
2487
1
6
1
56998
4
5
1
32361
2
look_self
1
15
1
6792
1
56998
4
5
1
32361
2
enterfunc
1
2
1
3
1
56998
4
5
1
32361
2
enterfunc
1
2693
1
258
1
56998
4
5
1
56998
2
moveto
1
56998
1
1
1
56998
4
5
1
56998
2
moveto
1
47
1
6
1
56998
4
5
1
56998
2
moveto
1
47
1
3133
1
56998
4
5
1
56998
2
moveto
1
78
1
7069
1
56998
4
5
1
56998
2
moveto
1
3685
1
8855
1
56998
4
5
1
56998
2
moveto
1
56998
1
56998
1
56998
4
5
1
26217
2
move
1
2
1
7
1
56998
4
5
1
26217
2
move
1
50367
1
26217
1
56998
4
5
1
26217
2
invoke
1
2
1
7
1
56998
4
5
1
26217
2
invoke
1
50367
1
26217
1
56998
4
5
1
35514
2
d
1
2
1
3
1
56998
4
3
4
5
1
56998
2
tell_lines
1
2487
1
6
1
56998
4
5
1
32361
2
look_self
1
15
1
6792
1
56998
4
5
1
32361
2
look
1
2693
1
258
1
56998
4
10
4
5
1
54918
2
tell_lines
1
2487
1
6
1
54918
4
5
1
24737
2
look_self
1
2
1
1
1
54918
4
5
1
24737
2
look_self
1
2
1
3
1
54918
4
5
1
24737
2
enterfunc
1
2
1
3
1
54918
4
5
1
54918
2
moveto
1
54918
1
1
1
54918
4
5
1
54918
2
moveto
1
47
1
6
1
54918
4
5
1
54918
2
moveto
1
47
1
3133
1
54918
4
5
1
43463
2
move
1
2
1
7
1
54918
4
5
1
43463
2
invoke
1
2
1
7
1
54918
4
5
1
47200
2
s
1
2
1
3
1
54918
4
7
4
5
1
56872
2
tell_lines
1
2487
1
6
1
56872
4
5
1
39439
2
secure
1
49551
1
29557
1
56872
4
5
1
39439
2
arm
1
49551
1
29557
1
56872
4
5
1
39439
2
say_parse
1
49551
1
29557
1
56872
4
5
1
39439
2
announce
1
49551
1
29557
1
56872
4
5
1
56872
2
say
1
57140
1
49900
1
56872
4
5
1
56872
2
say
1
19845
1
5409
1
56872
4
4
4
5
1
58173
2
tell_lines
1
2487
1
6
1
58173
4
5
1
41398
2
secure
1
49551
1
29557
1
58173
4
5
1
41398
2
arm
1
49551
1
29557
1
58173
4
5
1
41398
2
press
1
49551
1
29557
1
58173
4
15
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
50367
2
moveto
1
50367
1
50367
1
50367
4
5
1
26217
2
move
1
2
1
7
1
50367
4
5
1
26217
2
move
1
50367
1
26217
1
50367
4
5
1
26217
2
invoke
1
2
1
7
1
50367
4
5
1
26217
2
invoke
1
50367
1
26217
1
50367
4
5
1
35514
2
d
1
2
1
3
1
50367
4
4
4
5
1
57990
2
tell_lines
1
2487
1
6
1
57990
4
5
1
52032
2
secure
1
49551
1
29557
1
57990
4
5
1
52032
2
arm
1
49551
1
29557
1
57990
4
5
1
52032
2
press
1
49551
1
29557
1
57990
4
4
4
5
1
56310
2
tell_lines
1
2487
1
6
1
56310
4
5
1
56232
2
secure
1
49551
1
29557
1
56310
4
5
1
56232
2
arm
1
49551
1
29557
1
56310
4
5
1
56232
2
press
1
49551
1
29557
1
56310
4
4
4
5
1
56311
2
tell_lines
1
2487
1
6
1
56311
4
5
1
45919
2
secure
1
49551
1
29557
1
56311
4
5
1
45919
2
arm
1
49551
1
29557
1
56311
4
5
1
45919
2
press
1
49551
1
29557
1
56311
4
7
4
5
1
52687
2
tell_lines
1
2487
1
6
1
52687
4
5
1
11461
2
secure
1
49551
1
29557
1
52687
4
5
1
11461
2
arm
1
49551
1
29557
1
52687
4
5
1
11461
2
say_parse
1
49551
1
29557
1
52687
4
5
1
11461
2
announce
1
49551
1
29557
1
52687
4
5
1
11461
2
say
1
2
1
3
1
52687
4
5
1
52687
2
say
1
31783
1
4803
1
52687
4
4
4
5
1
57892
2
tell_lines
1
2487
1
6
1
57892
4
5
1
22838
2
secure
1
49551
1
29557
1
57892
4
5
1
22838
2
arm
1
49551
1
29557
1
57892
4
5
1
22838
2
press
1
49551
1
29557
1
57892
4
7
4
5
1
57531
2
tell_lines
1
2487
1
6
1
57531
4
5
1
53249
2
secure
1
49551
1
29557
1
57531
4
5
1
53249
2
arm
1
49551
1
29557
1
57531
4
5
1
53249
2
say_parse
1
49551
1
29557
1
57531
4
5
1
53249
2
announce
1
49551
1
29557
1
57531
4
5
1
53249
2
say
1
2
1
3
1
57531
4
5
1
57531
2
say
1
31783
1
4803
1
57531
4
7
4
5
1
57531
2
tell_lines
1
2487
1
6
1
57531
4
5
1
53249
2
secure
1
49551
1
29557
1
57531
4
5
1
53249
2
arm
1
49551
1
29557
1
57531
4
5
1
53249
2
say_parse
1
49551
1
29557
1
57531
4
5
1
53249
2
announce
1
49551
1
29557
1
57531
4
5
1
53249
2
say
1
2
1
3
1
57531
4
5
1
57531
2
say
1
31783
1
4803
1
57531
4
4
4
5
1
58091
2
tell_lines
1
2487
1
6
1
58091
4
5
1
13455
2
secure
1
49551
1
29557
1
58091
4
5
1
13455
2
arm
1
49551
1
29557
1
58091
4
5
1
13455
2
press
1
49551
1
29557
1
58091
4
4
4
5
1
58173
2
tell_lines
1
2487
1
6
1
58173
4
5
1
41398
2
secure
1
49551
1
29557
1
58173
4
5
1
41398
2
arm
1
49551
1
29557
1
58173
4
5
1
41398
2
press
1
49551
1
29557
1
58173
4
5
4
5
1
57998
2
tell_lines
1
2487
1
6
1
57998
4
5
1
57998
2
look_self
1
15
1
7069
1
57998
4
5
1
31788
2
special_look
1
31783
1
9805
1
57998
4
5
1
31788
2
l
1
31783
1
9805
1
57998
4
5
1
31788
2
l
1
49551
1
29557
1
57998
4
7
4
5
1
56263
2
tell_lines
1
2487
1
6
1
56263
4
5
1
55879
2
secure
1
49551
1
29557
1
56263
4
5
1
55879
2
arm
1
49551
1
29557
1
56263
4
5
1
55879
2
say_parse
1
49551
1
29557
1
56263
4
5
1
55879
2
announce
1
49551
1
29557
1
56263
4
5
1
56263
2
say
1
57140
1
49900
1
56263
4
5
1
56263
2
say
1
19845
1
5409
1
56263
4
14
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
26217
2
move
1
2
1
7
1
50367
4
5
1
26217
2
move
1
50367
1
26217
1
50367
4
5
1
26217
2
invoke
1
2
1
7
1
50367
4
5
1
26217
2
invoke
1
50367
1
26217
1
50367
4
5
1
35514
2
d
1
2
1
3
1
50367
4
14
4
5
1
29209
2
tell_lines
1
2487
1
6
1
29209
4
5
1
32361
2
look_self
1
15
1
6792
1
29209
4
5
1
32361
2
enterfunc
1
2
1
3
1
29209
4
5
1
32361
2
enterfunc
1
2693
1
258
1
29209
4
5
1
29209
2
moveto
1
29209
1
1
1
29209
4
5
1
29209
2
moveto
1
47
1
6
1
29209
4
5
1
29209
2
moveto
1
47
1
3133
1
29209
4
5
1
29209
2
moveto
1
78
1
7069
1
29209
4
5
1
29209
2
moveto
1
3685
1
8855
1
29209
4
5
1
26217
2
move
1
2
1
7
1
29209
4
5
1
26217
2
move
1
50367
1
26217
1
29209
4
5
1
26217
2
invoke
1
2
1
7
1
29209
4
5
1
26217
2
invoke
1
50367
1
26217
1
29209
4
5
1
35514
2
d
1
2
1
3
1
29209
4
4
4
5
1
56310
2
tell_lines
1
2487
1
6
1
56310
4
5
1
56232
2
secure
1
49551
1
29557
1
56310
4
5
1
56232
2
arm
1
49551
1
29557
1
56310
4
5
1
56232
2
press
1
49551
1
29557
1
56310
4
4
4
5
1
35404
2
tell_lines
1
2487
1
6
1
35404
4
5
1
34623
2
secure
1
49551
1
29557
1
35404
4
5
1
34623
2
arm
1
49551
1
29557
1
35404
4
5
1
34623
2
press
1
49551
1
29557
1
35404
4
4
4
5
1
56819
2
tell_lines
1
2487
1
6
1
56819
4
5
1
53010
2
secure
1
49551
1
29557
1
56819
4
5
1
53010
2
arm
1
49551
1
29557
1
56819
4
5
1
53010
2
press
1
49551
1
29557
1
56819
4
7
4
5
1
57531
2
tell_lines
1
2487
1
6
1
57531
4
5
1
53249
2
secure
1
49551
1
29557
1
57531
4
5
1
53249
2
arm
1
49551
1
29557
1
57531
4
5
1
53249
2
say_parse
1
49551
1
29557
1
57531
4
5
1
53249
2
announce
1
49551
1
29557
1
57531
4
5
1
53249
2
say
1
2
1
3
1
57531
4
5
1
57531
2
say
1
31783
1
4803
1
57531
4
7
4
5
1
57531
2
tell_lines
1
2487
1
6
1
57531
4
5
1
53249
2
secure
1
49551
1
29557
1
57531
4
5
1
53249
2
arm
1
49551
1
29557
1
57531
4
5
1
53249
2
say_parse
1
49551
1
29557
1
57531
4
5
1
53249
2
announce
1
49551
1
29557
1
57531
4
5
1
53249
2
say
1
2
1
3
1
57531
4
5
1
57531
2
say
1
31783
1
4803
1
57531
4
6
4
5
1
57998
2
tell_lines
1
2487
1
6
1
57998
4
5
1
31788
2
secure
1
49551
1
29557
1
57998
4
5
1
31788
2
arm
1
49551
1
29557
1
57998
4
5
1
31788
2
say_parse
1
49551
1
29557
1
57998
4
5
1
31788
2
announce
1
49551
1
29557
1
57998
4
5
1
31788
2
say
1
2
1
3
1
57998
4
4
4
5
1
55718
2
tell_lines
1
2487
1
6
1
55718
4
5
1
-1
2
1
55718
1
-1
1
55718
4
5
1
55718
2
eval_cmd_string
1
55718
1
217
1
55718
4
5
1
55718
2
eval
1
55718
1
217
1
55718
4
4
4
5
1
55718
2
tell_lines
1
2487
1
6
1
55718
4
5
1
-1
2
1
55718
1
-1
1
55718
4
5
1
55718
2
eval_cmd_string
1
55718
1
217
1
55718
4
5
1
55718
2
eval
1
55718
1
217
1
55718
4
2
4
5
1
58217
2
tell_lines
1
2487
1
6
1
58217
4
5
1
16175
2
check
1
19845
1
53431
1
58217
4
7
4
5
1
57956
2
tell_lines
1
2487
1
6
1
57956
4
5
1
45245
2
secure
1
49551
1
29557
1
57956
4
5
1
45245
2
arm
1
49551
1
29557
1
57956
4
5
1
45245
2
say_parse
1
49551
1
29557
1
57956
4
5
1
45245
2
announce
1
49551
1
29557
1
57956
4
5
1
45245
2
say
1
2
1
3
1
57956
4
5
1
57956
2
say
1
24436
1
10068
1
57956
4
7
4
5
1
57956
2
tell_lines
1
2487
1
6
1
57956
4
5
1
45245
2
secure
1
49551
1
29557
1
57956
4
5
1
45245
2
arm
1
49551
1
29557
1
57956
4
5
1
45245
2
say_parse
1
49551
1
29557
1
57956
4
5
1
45245
2
announce
1
49551
1
29557
1
57956
4
5
1
45245
2
say
1
2
1
3
1
57956
4
5
1
57956
2
say
1
24436
1
10068
1
57956
4
6
4
5
1
30246
2
tell_lines
1
2487
1
6
1
30246
4
5
1
25476
2
secure
1
49551
1
29557
1
30246
4
5
1
25476
2
arm
1
49551
1
29557
1
30246
4
5
1
25476
2
say_parse
1
49551
1
29557
1
30246
4
5
1
25476
2
announce
1
49551
1
29557
1
30246
4
5
1
30246
2
say
1
57140
1
49900
1
30246
4
2
4
5
1
48961
2
tell_lines
1
2487
1
6
1
48961
4
5
1
6776
2
@roomo
1
48961
1
6776
1
48961
4
2
4
5
1
48961
2
tell_lines
1
2487
1
6
1
48961
4
5
1
6776
2
@roomo
1
48961
1
6776
1
48961
4
2
4
5
1
48961
2
tell_lines
1
2487
1
6
1
48961
4
5
1
6776
2
@roomo
1
48961
1
6776
1
48961
4
4
4
5
1
58172
2
tell_lines
1
2487
1
6
1
58172
4
5
1
56555
2
secure
1
49551
1
29557
1
58172
4
5
1
56555
2
arm
1
49551
1
29557
1
58172
4
5
1
56555
2
press
1
49551
1
29557
1
58172
4
7
4
5
1
34107
2
tell_lines
1
2487
1
6
1
34107
4
5
1
58228
2
@antisocial
1
34107
1
58228
1
34107
4
5
1
34107
2
my_huh
1
34107
1
6
1
34107
4
5
1
34107
2
my_huh
1
78
1
7069
1
34107
4
5
1
34107
2
my_huh
1
24442
1
26026
1
34107
4
5
1
219
2
do_huh
1
34107
1
219
1
34107
4
5
1
7944
2
@antisocial
1
34107
1
1
1
34107
4
4
4
5
1
53502
2
tell_lines
1
2487
1
6
1
53502
4
5
1
53245
2
secure
1
49551
1
29557
1
53502
4
5
1
53245
2
arm
1
49551
1
29557
1
53502
4
5
1
53245
2
press
1
49551
1
29557
1
53502
4
6
4
5
1
57867
2
tell_lines
1
2487
1
6
1
57867
4
5
1
36302
2
secure
1
49551
1
29557
1
57867
4
5
1
36302
2
arm
1
49551
1
29557
1
57867
4
5
1
36302
2
say_parse
1
49551
1
29557
1
57867
4
5
1
36302
2
announce
1
49551
1
29557
1
57867
4
5
1
36302
2
say
1
2
1
3
1
57867
4
6
4
5
1
57919
2
tell_lines
1
2487
1
6
1
57919
4
5
1
20584
2
secure
1
49551
1
29557
1
57919
4
5
1
20584
2
arm
1
49551
1
29557
1
57919
4
5
1
20584
2
say_parse
1
49551
1
29557
1
57919
4
5
1
20584
2
announce
1
49551
1
29557
1
57919
4
5
1
20584
2
say
1
2
1
3
1
57919
4
4
4
5
1
58173
2
tell_lines
1
2487
1
6
1
58173
4
5
1
41398
2
secure
1
49551
1
29557
1
58173
4
5
1
41398
2
arm
1
49551
1
29557
1
58173
4
5
1
41398
2
press
1
49551
1
29557
1
58173
4
4
4
5
1
58173
2
tell_lines
1
2487
1
6
1
58173
4
5
1
41398
2
secure
1
49551
1
29557
1
58173
4
5
1
41398
2
arm
1
49551
1
29557
1
58173
4
5
1
41398
2
press
1
49551
1
29557
1
58173
4
14
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
26217
2
move
1
2
1
7
1
50367
4
5
1
26217
2
move
1
50367
1
26217
1
50367
4
5
1
26217
2
invoke
1
2
1
7
1
50367
4
5
1
26217
2
invoke
1
50367
1
26217
1
50367
4
5
1
35514
2
d
1
2
1
3
1
50367
4
14
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
26217
2
move
1
2
1
7
1
50367
4
5
1
26217
2
move
1
50367
1
26217
1
50367
4
5
1
26217
2
invoke
1
2
1
7
1
50367
4
5
1
26217
2
invoke
1
50367
1
26217
1
50367
4
5
1
35514
2
d
1
2
1
3
1
50367
4
15
4
5
1
56939
2
tell_lines
1
2487
1
6
1
56939
4
5
1
32361
2
look_self
1
15
1
6792
1
56939
4
5
1
32361
2
enterfunc
1
2
1
3
1
56939
4
5
1
32361
2
enterfunc
1
2693
1
258
1
56939
4
5
1
56939
2
moveto
1
56939
1
1
1
56939
4
5
1
56939
2
moveto
1
47
1
6
1
56939
4
5
1
56939
2
moveto
1
47
1
3133
1
56939
4
5
1
56939
2
moveto
1
78
1
7069
1
56939
4
5
1
56939
2
moveto
1
3685
1
8855
1
56939
4
5
1
56939
2
moveto
1
57140
1
49900
1
56939
4
5
1
26217
2
move
1
2
1
7
1
56939
4
5
1
26217
2
move
1
50367
1
26217
1
56939
4
5
1
26217
2
invoke
1
2
1
7
1
56939
4
5
1
26217
2
invoke
1
50367
1
26217
1
56939
4
5
1
35514
2
d
1
2
1
3
1
56939
4
3
4
5
1
56939
2
tell_lines
1
2487
1
6
1
56939
4
5
1
32361
2
look_self
1
15
1
6792
1
56939
4
5
1
32361
2
l
1
2693
1
258
1
56939
4
3
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
l
1
2693
1
258
1
50367
4
14
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
26217
2
move
1
2
1
7
1
50367
4
5
1
26217
2
move
1
50367
1
26217
1
50367
4
5
1
26217
2
invoke
1
2
1
7
1
50367
4
5
1
26217
2
invoke
1
50367
1
26217
1
50367
4
5
1
35514
2
d
1
2
1
3
1
50367
4
15
4
5
1
56939
2
tell_lines
1
2487
1
6
1
56939
4
5
1
32361
2
look_self
1
15
1
6792
1
56939
4
5
1
32361
2
enterfunc
1
2
1
3
1
56939
4
5
1
32361
2
enterfunc
1
2693
1
258
1
56939
4
5
1
56939
2
moveto
1
56939
1
1
1
56939
4
5
1
56939
2
moveto
1
47
1
6
1
56939
4
5
1
56939
2
moveto
1
47
1
3133
1
56939
4
5
1
56939
2
moveto
1
78
1
7069
1
56939
4
5
1
56939
2
moveto
1
3685
1
8855
1
56939
4
5
1
56939
2
moveto
1
57140
1
49900
1
56939
4
5
1
26217
2
move
1
2
1
7
1
56939
4
5
1
26217
2
move
1
50367
1
26217
1
56939
4
5
1
26217
2
invoke
1
2
1
7
1
56939
4
5
1
26217
2
invoke
1
50367
1
26217
1
56939
4
5
1
35514
2
d
1
2
1
3
1
56939
4
3
4
5
1
56939
2
tell_lines
1
2487
1
6
1
56939
4
5
1
32361
2
look_self
1
15
1
6792
1
56939
4
5
1
32361
2
l
1
2693
1
258
1
56939
4
14
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
26217
2
move
1
2
1
7
1
50367
4
5
1
26217
2
move
1
50367
1
26217
1
50367
4
5
1
26217
2
invoke
1
2
1
7
1
50367
4
5
1
26217
2
invoke
1
50367
1
26217
1
50367
4
5
1
35514
2
d
1
2
1
3
1
50367
4
10
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
5443
2
done
1
6336
1
5400
1
50367
4
14
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
26217
2
move
1
2
1
7
1
50367
4
5
1
26217
2
move
1
50367
1
26217
1
50367
4
5
1
26217
2
invoke
1
2
1
7
1
50367
4
5
1
26217
2
invoke
1
50367
1
26217
1
50367
4
5
1
35514
2
d
1
2
1
3
1
50367
4
10
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
5443
2
done
1
6336
1
5400
1
50367
4
3
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
l
1
2693
1
258
1
50367
4
14
4
5
1
50367
2
tell_lines
1
2487
1
6
1
50367
4
5
1
32361
2
look_self
1
15
1
6792
1
50367
4
5
1
32361
2
enterfunc
1
2
1
3
1
50367
4
5
1
32361
2
enterfunc
1
2693
1
258
1
50367
4
5
1
50367
2
moveto
1
50367
1
1
1
50367
4
5
1
50367
2
moveto
1
47
1
6
1
50367
4
5
1
50367
2
moveto
1
47
1
3133
1
50367
4
5
1
50367
2
moveto
1
78
1
7069
1
50367
4
5
1
50367
2
moveto
1
3685
1
8855
1
50367
4
5
1
26217
2
move
1
2
1
7
1
50367
4
5
1
26217
2
move
1
50367
1
26217
1
50367
4
5
1
26217
2
invoke
1
2
1
7
1
50367
4
5
1
26217
2
invoke
1
50367
1
26217
1
50367
4
5
1
35514
2
down
1
2
1
3
1
50367
4
4
4
5
1
53502
2
tell_lines
1
2487
1
6
1
53502
4
5
1
10202
2
secure
1
49551
1
29557
1
53502
4
5
1
10202
2
arm
1
49551
1
29557
1
53502
4
5
1
10202
2
press
1
49551
1
29557
1
53502
4
6
4
5
1
57919
2
tell_lines
1
2487
1
6
1
57919
4
5
1
20584
2
secure
1
49551
1
29557
1
57919
4
5
1
20584
2
arm
1
49551
1
29557
1
57919
4
5
1
20584
2
say_parse
1
49551
1
29557
1
57919
4
5
1
20584
2
announce
1
49551
1
29557
1
57919
4
5
1
20584
2
say
1
2
1
3
1
57919
38
1
5
38
4
4
1
2
list_utilities
38
5
4
31
2
append (list,list,..) => result of concatenating the given lists
2
reverse (list) => reversed list
2
remove_duplicates (list) => list with all duplicates removed
2
compress (list) => list with consecutive duplicates removed
2
setremove_all (list,elt) => list with all occurrences of elt removed
2
find_insert (sortedlist,e) => index of first element > e in sortedlist
2
sort (list[,keys]) => sorted list
2
count (elt,list) => count of elt found in list.
2
flatten (list) => flatten all recursive lists into one list
2
2
make (n[,e]) => list of n copies of e
2
range (m,n) => {m,m+1,...,n}
2
2
arrayset (list,val,i[,j,k...]) => array modified so that list[i][j][k]==val
2
2
-- Mapping functions (take a list and do something to each element):
2
2
map_prop ({o...},prop) => list of o.(prop) for all o
2
map_verb ({o...},verb[,args) => list of o:(verb)(@args) for all o
2
map_arg ([n,]obj,verb,{a...},args) => list of obj:(verb)(a,@args) for all a
2
2
-- Association list functions --
2
2
An association list (alist) is a list of pairs (2-element lists), though the following functions have been generalized for lists of n-tuples (n-element lists). In each case i defaults to 1.
2
2
assoc (targ,alist[,i]) => 1st tuple in alist whose i-th element is targ
2
iassoc (targ,alist[,i]) => index of same.
2
assoc_prefix (targ,alist[,i]) => ... whose i-th element has targ as a prefix
2
iassoc_prefix(targ,alist[,i]) => index of same.
2
slice (alist[,i]) => list of i-th elements
2
sort_alist (alist[,i]) => alist sorted on i-th elements.
38
5
4
2
0
123804
0
743584203
2
1
#57
command utilities
16
2
-1
-1
-1
1
-1
56
17
object_match_failed
2
173
-1
player_match_result player_match_failed
2
173
-1
read
2
165
-1
read_lines
2
165
-1
yes_or_no
2
165
-1
read_lines_escape
2
173
-1
suspend
2
173
-1
running_out_of_time
38
173
-1
suspend_if_needed
2
173
-1
dump_lines
38
173
-1
explain_syntax
2
173
-1
do_huh
2
165
-1
suspend_database_add
2
173
-1
suspend_database_remove
2
173
-1
suspend_database_cleanup
2
173
-1
task_info
2
173
-1
suspend_database_display
2
173
-1
1
suspend_database
5
4
3
4
2
0
567973305
4
3
4
5
1
-1
2
1
31185
1
-1
1
31185
4
5
1
31185
2
eval_cmd_string
1
31185
1
217
1
31185
4
5
1
31185
2
eval
1
31185
1
217
1
31185
4
2
0
780571535
4
6
4
5
1
8992
2
suspend
1
47
1
8992
1
47
4
5
1
8992
2
scan_features
1
47
1
8992
1
47
4
5
1
8992
2
do_features
1
47
1
8992
1
47
4
5
1
8992
2
do_survey
1
47
1
8992
1
47
4
5
1
8992
2
survey_cycle
1
47
1
8992
1
47
4
5
1
8992
2
@start-survey
1
47
1
8992
1
47
4
2
0
1776668127
4
4
4
5
1
8992
2
suspend
1
47
1
8992
1
49807
4
5
1
8992
2
count
1
47
1
8992
1
49807
4
5
1
8992
2
scan
1
47
1
8992
1
49807
4
5
1
8992
2
start
1
47
1
8992
1
49807
2
0
5
2
4
5
2
5
4
31
2
$command_utils is the repository for verbs that are of general usefulness to authors of all sorts of commands. For more details about any of these verbs, use `help $command_utils:<verb-name>'.
2
2
Detecting and Handling Failures in Matching
2
-------------------------------------------
2
:object_match_failed(match_result, name)
2
Test whether or not a :match_object() call failed and print messages if so.
2
:player_match_failed(match_result, name)
2
Test whether or not a :match_player() call failed and print messages if so.
2
:player_match_result(match_results, names)
2
...similar to :player_match_failed, but does a whole list at once.
2
2
Reading Input from the Player
2
-----------------------------
2
:read() -- Read one line of input from the player and return it.
2
:yes_or_no([prompt])
2
-- Prompt for and read a `yes' or `no' answer.
2
:read_lines() -- Read zero or more lines of input from the player.
2
:dump_lines(lines)
2
-- Return list of lines quoted so that feeding them to
2
:read_lines() will reproduce the original lines.
2
2
Utilities for Suspending
2
------------------------
2
:running_out_of_time()
2
-- Return true if we're low on ticks or seconds.
2
:suspend_if_needed(time)
2
-- Suspend (and return true) if we're running out of time.
2
2
Client Support for Lengthy Commands
2
-----------------------------------
2
:suspend(args) -- Handle PREFIX and SUFFIX for clients in long commands.
The @uptime command displays the amount of time since the last restart of the server.
2
Note to programmers: The last restart time of the server is stored in $last_restart_time.
38
5
4
2
2
*forward*
2
@mail-options
38
1
4
3
2
Syntax: @sort-owned
2
2
Sorts your .owned_objects property so @audit shows up sorted. See help @audit for more information.
38
5
4
3
2
Syntax: @verify-owned
2
2
Checks that all the objects in your .owned_objects property are actually owned by you, and effects repairs if needed. See help @audit for more information.
38
5
4
3
2
Syntax: @add-owned <object>
2
2
Adds an object to your .owned_objects property in case it managed not to get updated properly upon creation of that object. Checks to ensure that the objects is really owned by you and otherwise belongs in your .owned_objects property. See help @audit for more information.
38
5
4
52
2
Syntax: @mail-option
2
@mail-option <option>
2
2
Synonym: @mailoption
2
2
The first form displays all of your mail options
2
The second displays just that one option, which may be either `@mail', `replyto', or one of the flags listed below. The mail options control various annoying details of your mail reading and mail editing commands.
2
2
The remaining forms of this command are for setting your mail options:
2
2
@mail-option +<flag>
2
@mail-option -<flag>
2
@mail-option !<flag> (equivalent to -<flag>)
2
2
These respectively set and reset the specified flag
2
2
-include @reply's start out with a blank message body
2
+include @reply's start with original message included
2
-all @reply's go to sender only
2
+all @reply's go to sender and all original recipients
2
-nosubject @send forces you to provide a Subject: line
2
+nosubject allow entering the mail editor without giving a subject line
2
-enter start each mail editing session in the usual command mode.
2
+enter start each mail editing session with an implicit `enter' command
2
-expert novice mail user (various annoying messages will be printed)
2
+expert expert mail user (suppress printing of annoying messages)
2
-sticky each mail command applies by default to one's own collection
2
+sticky each mail command applies by default to the same message
2
collection that the previous successful command did
2
2
For "sticky", `mail command' is one of @mail, @read, @prev, @next, @answer.
2
All flags default to the `-' settings.
2
2
Next, we have
2
2
@mail-option manymsgs [is] <number>
2
@mail-option manymsgs=<number>
2
@mail-option -manymsgs
2
2
The first two forms specify that if you give a @mail or @read command asking for <number> or more messages, you will first be given a yes-or-no prompt to continue, the idea being that you many not actually have wanted to see that many messages. The third form turns off this behavior.
2
2
@mail-option @mail [is] <message-sequence>
2
2
The "@mail" option determines what message-sequence the @mail command uses by
2
default. Initially, this is "last:15", but other reasonable choices include
The first form specifies that a Reply-To: field is to be placed in all messages constructed by @send or @answer. Note this can still be changed before sending via the mail room's reply-to command.
2
The second form resets this option so that no Reply-to: is initially inserted.
38
5
4
4
2
*subst*
2
2
%;this:wizard_list()
2
38
5
4
2
2
*forward*
2
@linelength
38
1
4
1
2
*full_index*
38
5
4
1
2
*index_list*
38
5
4
2
2
*index*
2
General Help Topics
38
5
4
30
2
There are 3 personal properties that you can use to customize how your mail is composed and forwarded
2
2
.mail_forward
2
-- list of objects that will receive any mail that gets sent to you.
2
Objects on this list should either be players or descendants of
2
$mail_recipient.
2
If this list is nonempty, you will not receive any mail yourself unless
2
you are on it. E.g., if Rog is #4292 and ur-Rog is #6349
2
2
#6349.mail_forward={} -- usual case; ur-Rog gets his own mail.
2
#6349.mail_forward={#4292} -- Rog gets ur-Rog's mail instead.
2
#6349.mail_forward={#6349,#4292} -- ur-Rog gets mail and Rog gets a copy.
2
#6349.mail_forward={#-1} -- ur-Rog's mail disappears without a trace.
2
2
.mail_notify
2
-- list of objects to be notified whenever mail is sent to you.
2
This list may include anything that has a :notify_mail() verb.
2
Notification will take place regardless of whether or how your mail
2
is forwarded.
2
2
Thus, in the previous example
2
2
#4292.mail_notify={#6349} --- means that ur-Rog will be told
2
whenever Rog is sent new mail.
2
2
.mail_options
2
-- this controls lots of miscellaneous things. Use the @mail-option command
2
to view and set these options (see `help @mail-option')
2
2
See `help mail-resolve' for more detail on how mail forwarding and mail notification work. See `help MR-subscribing' for information on how to change .mail_forward and .mail_notify on $mail_recipient children, where they are !c properties.
38
5
4
21
2
Syntax: @pagelength <number>
2
@pagelength
2
2
If the lines you see scroll off the top of your screen too quickly for you to
2
read and your client program is such that any lines scrolling off the top are
2
gone forever, you can use the @pagelength command to invoke page buffering to
2
limit the number of lines sent at a time. E.g., if your terminal has a 24 line
2
screen, you can do @pagelength 24 and output will stop every 24 lines if you
2
don't type any other commands.
2
2
You will need to use the @more command to continue reading output once it
2
has been stopped. Make sure you read `help @more' before setting @pagelength.
2
2
@pagelength 0 means no page buffering will be done by the MOO.
2
2
By default the MOO will assume you have an infinitely wide terminal screen, so
2
you may wish to set @linelength as well, and ensure wrapping is on with @wrap
2
on. (See help @linelength and help @wrap.) As with word wrapping, you are
2
best off running a client that can do its own page buffering; the MOO server's
2
page buffering is inherently slower and many MUD's do not have page buffering
2
at all.
2
1
4
19
2
*subst*
2
Syntax: @more
2
@more rest
2
@more flush
2
2
If you have @pagelength set (see `help @pagelength') and some combination of events or commands produces sufficiently many lines of output, you will see a message of the form
2
2
%[strsub(player.more_msg,"%%n","37")]
2
2
indicating (in this case) 37 more lines of text waiting to be read.
2
At this point, you should give one of the @more commands above.
2
2
@more without arguments prints sufficiently many lines to fill your screen,
2
assuming you've set @pagelength correctly, unless there are not that many
2
lines left to print.
2
2
@more rest will print all of the remaining lines, regardless of your @pagelength setting.
2
2
@more flush discards all remaining lines
2
1
4
3
2
MOO contains a rich programming language for the creation of interesting rooms, exits, and other objects.
2
2
Not every player is allowed to program in MOO, including (at the moment, anyway) you. If you would like to be, find a wizard and convince them that you've got good ideas that the MOO needs. Good luck!
38
5
4
3
2
Syntax: @forward <msg> [on *<collection>] to <recipient> [<recipient>...]
2
2
Takes the indicated message in your (or some other) message collection, creates a new message whose body is the original message (both headers and body) and sends it on to the given recipients.
38
5
4
23
2
Syntax: @subscribe *<collection>
2
@subscribe
2
2
The first form of this command does two things:
2
2
(1) it sets up a current message and a last-read-time for the given mail
2
collection so that when next you log in, you will be informed about new
2
mail that has appeared there. Note that this happens automatically
2
whenever you @read messages on a given collection, so if this much is
2
all you care about, you don't need to use this command; just do, e.g.,
2
@read last on *<collection>
2
2
(2) adds you to the .mail_notify list for that collection, so that you will
2
be notified *immediately* whenever new mail is sent there.
2
2
You can only @subscribe to collections that are readable by you.
2
The second form of the command gives a list of collections available to you.
2
2
Note that this is entirely different from the Mail Room `subscribe' command
2
which actually adds you to the .mail_forward list for a given collection/
2
mailing-list, so that mail sent to the list actually shows up in your own
2
mail collection.
2
We're probably going to phase out the Mail Room `subscribe' command...
38
5
4
5
2
Syntax: @rn
2
2
For each collection of mail messages that you read other from your own, a last-read-time is kept. This command tells you which collections (out of all those you have ever read) have recently had messages added to them, i.e., more recently than when you last did a @read, @prev, @next, or @skip on that collection.
2
2
Etymologists' note: If you thought @rn had anything to do with the popular UNIX newsreading program `rn', it's just your imagination.
38
5
4
2
2
*forward*
2
@skip
38
5
4
8
2
Syntax: @skip [<collection>...]
2
@unsubscribe [<collection>...]
2
2
For each collection of mail messages that you read other from your own, a current message and a last-read-time is kept. Normally, if you neglect to actually @read any messages on a collection other from your own, @rn (or :check_mail_lists) will continue to remind you that they are there.
2
2
The @skip command indicates that you're not interested in reading the rest of the messages that currently exist in that given collection.
2
2
The @unsubscribe command flushes the current-message/last-read-time information completely, indicating that you are not only uninterested in the rest of the messages on that collection, but also likewise uninterested in anything else that may appear on that collection later on. @unsubscribe also removes you from the collection's .mail_notify list.
38
5
4
10
2
*subst*
2
We recently reduced the initial quota for new players to %[$help:player_quota()].
2
Those of you who were around before this are covered by a grandfather clause
2
i.e., you get to keep your over-quota objects. However this means that
2
your quota for creating new objects may now be *more than* used up, i.e.,
2
negative. In particular, this means that if you recycle an object,
2
you will not be able to @create one in its place.
2
2
You can, however, re-use your over-quota objects by using the @recreate
2
command instead (see `help recreate').
38
5
4
2
2
*forward*
2
@unrmmail
38
5
4
45
2
Certain mail commands, including @mail, @read, and @rmmail, allow a <message-sequence> argument that indicates to which messages in one's collection the command is to apply. Any combination of the following may appear as a <message-sequence> argument to any of the various mail commands (@mail, @read, @answer, @rmm).
2
2
17 message number 17 if there is one (and likewise for other integers)
2
17..23 all messages numbered between 17 and 23 (inclusive), if any.
2
cur the current message
2
prev the message before
2
next the message after
2
last the final message if any (`$' is a synonym for `last')
2
2
You may use as many of these at once as sanity permits, e.g.,
2
2
@mail cur 1..5 last
2
2
which will display the header for your current message, your messages in the range 1..5, and your last message. Though some of these ranges may overlap, the header for any given message is only shown once in any event.
2
2
In addition, there are other message-sequence arguments that act as filters
2
on whatever precedes them
2
2
before:<date> messages strictly before the given date
2
after:<date> messages strictly after the given date
2
since:<date> messages on or after the given date
2
until:<date> messages on or before the given date
2
from:<player>[|<player...] messages from the given player(s)
2
to:<recip>[|<recip>...] messages to the given recipient(s)
2
subject:<string> messages with <string> in the subject
2
body:<string> messages with <string> in the body (SLOW!!!)
2
first:<number> the first <number> messages
2
last:<number> the last <number> messages
2
2
<date> is either a weekday, an dd-Month, dd-Month-yy or dd-Month-yyyy date
2
<recip> is either <player> or *<$mail_recipient kid>
2
2
Examples:
2
2
@read from:G7|Gemba read all messages from G7 or Gemba
2
@rmm to:yduJ|*Core remove messages that are to yduJ or to *Core
2
@mail since:1-Jan before:1-Feb show messages dated in January
2
@mail since:Tues show messages dated on or after Tuesday
2
@rmm subject:manners remove msgs with `manners' in the subject:
2
@mail subject:"stupid idiots" (search string contains a space => need "'s)
2
@rmm to:yduJ to:*Core remove messages that are to yduJ and *Core
2
@mail from:Haakon last:5 show the last 5 messages from Haakon
2
@mail last:10 body:fribble show those of the last 10 messages having
2
`fribble' in the body (one should always try
2
to narrow body searches in this way).
38
5
4
7
2
Syntax: @quota
2
2
Each player has a limit as to how many objects that player may create, called their 'quota'. Every object they create lowers the quota by one and every object they recycle increases it by one. If the quota goes to zero, then that player may not create any more objects (unless, of course, they recycle some first).
2
2
The @quota command prints out your current quota.
2
2
The quota mechanism is intended to solve a long-standing problem in many MUDs: database bloat. The problem is that a large number of people build a large number of dull objects and areas that are subsequently never used or visited. The database becomes quite large and difficult to manage without getting substantially more interesting. With the quota system, we can make it possible for players to experiment and learn while simultaneously keeping random building to acceptable levels.
2
1
4
5
2
Usage: @recreate <object> as <parent> named <name spec>
2
2
This is a combination of @create and @chparent. It takes an existing object, completely strips it of any verbs, properties, and values for inherited properties. This object is then reshaped into a child of the parent specified, as though @create had been called, but retaining the same object number as the original.
2
2
The <parent> and <name spec> arguments are as in @create.
38
5
4
22
2
Syntax: @wrap <on|off>
2
@wrap
2
2
@linelength <number>
2
@linelength
2
2
If the lines you see get cut off at the edge of your screen (you don't have
2
word-wrap), you can get LambdaMOO to split lines for you. The @linelength
2
command tells the MOO how many columns you have on your screen--you probably
2
want @linelength 79--and "@wrap on" tells the MOO you want it to do word-
2
wrap.
2
2
It's better if you can fix this problem without LambdaMOO's help, though,
2
because the MOO's solution will be slower than a local solution, and
2
because not all MUDs are willing to do word-wrap.
2
2
If you don't want the MOO to split lines for you, there might still be some
2
use for the @linelength command. Certain commands, like @who and @check,
2
print truncated lines so they can print in neat columns. The default for
2
these is generally about 79 columns, which looks fine if you have an
2
eighty-column screen. If your screen is a different width, though, you
2
can set @linelength and some of these commands will react accordingly.
38
5
4
13
2
*subst*
2
A few different messages can be set on a room object (see 'help messages' for instructions on doing so); they are printed to various audiences when a player or other object is ejected from the room. (See 'help @eject'.) The standard pronoun substitutions are made on each message before it is printed; see 'help pronouns' for details.
2
2
The default message is given in brackets after each name below:
2
2
@ejection [%[$room.ejection_msg]]
2
Printed to the player doing the ejecting.
2
2
@victim_ejection [%[$room.victim_ejection_msg]]
2
Printed to the object being ejected.
2
2
@oejection [%[$room.oejection_msg]]
2
Printed to others in the room from which the object is being ejected.
When you do @rmmail on a particular message collection, the messages removed don't go away immediately, but are rather saved elsewhere. These "zombie" messages can be brought back or examined using the @UNrmmail command.
2
2
Without `list' or `expunge', @unrmm restores the zombie messages, thus undoing the effect of the most recent @rmmail command. Only the most recent @rmmail can be undone in this way; messages deleted by any previous @rmmail commands on this same collection are lost and gone forever.
2
2
The `list' option merely lists the headers of the zombie messages without actually restoring them.
2
2
The `expunge' option banishes the zombie messages forever.
2
2
Note that the message numbers used by zombie messages are held in reserve against the possibility that you might @unrmm them some day; with such messages around, new messages received will be given higher numbers than you might have expected. @renumber does an implicit @unrmm expunge.
2
2
`@unrmmail' and `@unrmmail expunge' on collections other than your own are only allowed when you have write access. Likewise, `@unrmmail list' on other collections is only possible when they are readable by you.
38
5
4
2
2
*forward*
2
@listgag
38
5
4
2
2
*forward*
2
emote
38
5
4
2
2
*forward*
2
@typo
38
5
4
3
2
Syntax: @remove-entrance <entrance>
2
2
Remove the specified entrance from the current entrances list of the room. Entrance may be either the name or object number of an entrance to this room.
38
5
4
3
2
Syntax: @remove-exit <exit>
2
2
Remove the specified exit from the current exits list of the room. Exit may be either the name or object number of an exit from this room.
38
5
4
8
2
Syntax: @parents object
2
2
A quick way to find out the ancestry of an object. Prints out the names and object numbers of all ancestors.
A quick way to find out the contents of an object. Prints out the names and object numbers of all direct contents. This can be useful when you need to refer to something by object number because something is wrong with its aliases.
2
2
Example:
2
@contents here
2
The Entrance Hall(#19) contains:
2
Strasbourg Clock(#71) mirror at about head height(#7444)
38
5
4
5
2
*forward*
2
summary
2
2
Type 'help <topic>' for information on a particular topic.
2
38
5
4
2
2
*forward*
2
security
38
1
4
15
2
Some things you should be aware of:
2
2
-*-*- OMNISCIENT WIZARDS AND SYSADMINS: -*-*-
2
Wizards can look at absolutely *anything* in the MOO database.
2
The arch-wizard and the sysadmin for the MOO-server host have complete access not only to the MOO database itself but to many other possibly-relevant things.
2
The above mentioned parties (wizards et al), while they will endeavor to be discreet about anything incidental that turns up, nevertheless reserve the right look at anything they want, if only for the sake of being able to resolve technical problems.
2
2
-*-*- LOGGING: -*-*-
2
Some client programs (the "client" is the program you use to connect to the MOO, e.g., telnet, tinytalk, tinyfugue, emacs with mud.el...) are capable of logging everything that happens to the corresponding player. In fact, with some clients this happens by default. If a given player's client has logging enabled and said player is either in the room with you or is monitoring an object that is in the room with you, then *everything* you say and emote gets recorded. Also, if you are in a room owned by someone else, all bets are off. There is *no way* that the MOO server can know about what client a given player is using; thus, anyone who can hear you is a potential logger.
2
2
In and of itself this would not be a problem --- indeed, logs are often useful for reference purposes. However, there is no guarantee that the log will not end up someplace where you'd rather it didn't, e.g., posted on the rec.games.mud Usenet newsgroup. While it considered bad form (i.e., rude) to circulate or post a log without having the permission of at least the major participants in the activities logged, there is not a whole lot we can do on the technical side to prevent it from happening.
2
2
Be aware of the problem. The @sweep command (see `help @sweep') attempts to determine what players can be listening at any given moment. If anything, it errs on the side of paranoia. Even so, it doesn't cover *all* possible avenues of eavesdropping, and there's no hope for it covering the situations like the one where someone manages to convince one of the participants in your discussion who kept a log that it really doesn't need to be kept private after all.
2
2
If you've got something really sensitive to discuss, you are best off doing it by encrypted email or in person.
Displays a part of the parenting tree of objects on the MOO, i.e. all
2
the descendants of a given object owned by particular players.
2
2
owners: a list of players whose objects you are interested in. If
2
one of these is * or !, @realm will display objects only if
2
they belong to players you didn't mention. (defaults to you)
2
root: the object which is an ancestor of all the objects you are
2
interested in. (defaults to $root_class).
2
descendants: a list of objects (descendants of root) which you are not
2
interested in. Neither they nor their descendants will be
2
displayed.
2
2
@realm also displays the objects which are ancestors of root, and, if it
2
is not redundant, the owners of all objects. @realm has a habit of
2
running out of ticks if you try displaying large chunks of the MOO.
38
5
4
13
2
Syntax: @resident player
2
@resident !player
2
@resident
2
2
Adds or removes a player from the residents list of a room. The residents list controls who is allowed to use @sethome in that room. This defaults to just the owner of the room; by manipulating the residents list you may allow additional players to use that room as their home.
2
2
@resident player adds that player to the list.
2
@resident !player removes that player from the list.
2
@resident with no arguments simply displays the current list (which may be "none", indicating no additional people besides the owner may use that room as their home).
2
2
See also help @sethome.
2
2
Hints for programmers: The verb $room:accept_for_abode is called by @sethome. By overriding this verb you can give different criteria to @sethome. It should return 1 for allowed and 0 for denied.
38
5
4
12
2
Syntax: @examine <object>
2
@exam <object>
2
2
Prints several useful pieces of information about the named object, including the following:
2
+ its full name, aliases, and object number
2
+ its owner's name and object number
2
+ its description
2
+ its key expression (if it is locked and if you own it)
2
+ its contents and their object numbers
2
+ the 'obvious' verbs defined on it
2
2
[Note to programmers: the 'obvious' verbs are those that are readable and that can be invoked as commands. To keep a verb off this list, either make it unreadable (see 'help @chmod') or, if it shouldn't be used as a command, give it 'args' of 'this none this' (see 'help @args').]
38
5
4
5
2
There are several commands available to determine the origins of messages and to check that your communications with other players are secure. Help is available on the following topics:
2
2
@paranoid -- keeping a record of messages your character hears.
2
@check -- looking at that record to determine responsibility for messages.
2
@sweep -- checking who is listening in on your conversation.
38
5
4
3
2
Syntax: @sweep
2
2
Used when you wish to have a private conversation, and are concerned someone may be listening in. @sweep tries to list the avenues by which information may be leaving the room. In a manner analogous to @check, it assumes that you don't want to hear about your own verbs, or those belonging to wizards, who presumably wouldn't stoop to bugging.
38
5
4
6
2
Syntax: @paranoid
2
@paranoid off
2
@paranoid immediate
2
@paranoid <number>
2
2
In immediate mode, the monitor prepends everything you hear with the name of the character it considers responsible for the message. Otherwise, it keeps records of the last <number> (defaults to 20) lines you have heard. These records can be accessed by the @check command.
38
5
4
23
2
Syntax: @check <options>
2
2
where <options> is one or more of:
2
-- the number of lines to be displayed
2
-- a player's name, someone to be "trusted" during the assignment of responsibility for the message.
2
-- a player's named prefixed by !, someone not to be "trusted".
2
2
@check-full <options>
2
where <options is either
2
-- the number of lines to be displayed
2
-- a search string: only lines containing that string will be displayed.
2
2
Used when you are suspicious about the origin of some of the messages your character has just heard.
2
2
Output from @check is in columns that contain, in order, the monitor's best guess as to:
2
what object the message came from,
2
what verb on that object that was responsible,
2
whose permissions that verb was running with, and
2
the beginning of the actual message.
2
2
Output from @check-full is in columns that contains a description of all the verbs that were responsible for the noise heard, not just the best guess as to who was responsible.
2
2
@check operates by examining the list of verbs that were involved in delivering the message, and assigning responsibility to the first owner it sees who is not "trusted". By default, it trusts you and all the wizards. It uses the records maintained by @paranoid, so you must have used that command before you received the message.
38
5
4
2
2
*forward*
2
@answer
38
5
4
10
2
Syntax: @eject <object>
2
@eject <object> from <place>
2
2
This command is used to remove unwanted objects from places you own. Players thus removed are unceremoniously dumped in their homes (unless that's this room, in which case they are dumped in the default player starting place). Other kinds of objects are checked for a .home property and sent there if possible, otherwise they get thrown into #-1. Unlike @move, @eject does *not* check to see if the object wants to be moved, and with the destination being what it is, there is no question of the destination refusing the move, either. Generally, you should only resort to @eject if @move doesn't work.
2
2
The first form of the command removes the object from the current room. The second form removes the object from the specified place (which, in most cases, you'll have to specify as an object number). In either case, this command only works if you own the room/entity from which the object is being ejected.
2
2
"@eject ... from me" suffices to get rid of some unwanted object in your inventory.
2
2
See 'help room-messages' for a list of messages one can set regarding the @eject command.
38
5
4
3
2
Syntax: @quit
2
2
Disconnect from the MOO. This breaks your network connection and leaves your player sleeping. Disconnecting in most parts of the MOO automatically returns your player to its designated home (see 'help home').
38
1
4
4
2
Syntax: whereis [<player> [<player>...]]
2
@whereis [<player> [<player>...]]
2
2
Returns the current location of each of the specified players, or of all players if not arguments given.
38
5
4
2
2
*forward*
2
@typo
38
5
4
2
2
*forward*
2
@typo
38
5
4
2
2
*forward*
2
@typo
38
5
4
12
2
Syntax: @typo [<text>]
2
@bug [<text>]
2
@suggest [<text>]
2
@idea [<text>]
2
@comment [<text>]
2
2
If <text> is given, a one-line message is sent to the owner of the room, presumably about something that you've noticed. If <text> is not given, we assume you have more to say than can fit comfortably on a single line; the usual mail editor is invoked. The convention is that @typo is for typographical errors on the room or objects found therein, @bug is for anomalous or nonintuitive behaviour of some sort, @idea/@suggest for any particular brainstorms or criticisms you might happen to have, and @comment for anything else.
2
2
If you're sending a bug report to someone because you got an error traceback when you used some object of theirs, please give them enough information to work on the problem. In particular, please tell them *exactly* what you typed and *all* of the error messages that were printed to you, including the entire traceback, up to the line `(End of traceback.)'. Without this information, it is nearly impossible for the programmer to discover, let alone fix, the problem.
2
2
The usual mail editor is only invoked for this command when in rooms that allow free entry, i.e., rooms that are likely to allow you back after you are done editing your message. Otherwise these commands will require <text> and only let you do one-line messages.
2
Most adventuring scenario rooms fall into this latter category.
38
5
4
5
2
Syntax: @renumber [<collection>]
2
2
Renumbers the messages in your collection to go from 1 to however many you have at the moment. The optional argument allows you to renumber the messages stored in some other collection (@renumber, like @rmmail, requires write access).
2
2
Note that if you have zombie messages from a previous @rmmail command (see `help zombie-messages'), these will be expunged.
38
5
4
8
2
Syntax: @notedit <note-object>
2
@notedit <object>.<property>
2
2
Enters the MOO Note Editor to edit the text on the named object
2
For the first form, <note-object> must be a descendant of $note.
2
For the second form, <object>.<property> can be any string-valued or text-valued (i.e., list of strings) property on any object.
2
2
See 'help editors' for more detail.
38
5
4
40
2
One can always enter an editor by teleporting to it, or you can use one of the commands provided
2
2
@edit <object>:<verb> invokes the Verb Editor (edits verb code)
2
@notedit <note_object> invokes the Note Editor (edits note text)
2
@notedit <object>.<prop> invokes the Note Editor (edits text property)
2
@send <list of recipients> invokes the Mailer (edits a mail msg)
2
@answer [<msg_number>] [<flags>...] invokes the Mailer (edits a reply)
2
2
This will transport you to one of several special rooms that have editing commands available. These editors are admittedly not as good as EMACS, but for those with no other editing capability on their host systems, they are better than nothing.
2
2
There is a generic editor that provides basic editing commands that are applicable to all editors. Documentation for these commands can be obtained by typing `help <topic>' within the editor:
2
2
abort emote/: pause send (M)
2
also-to (M) fill prev showlists (M)
2
compile (V) insert print (M) subject (M)
2
copy join quit subst
2
delete list ranges to (M)
2
done move save (N) what
2
edit (V,N) next say/" who (M)
2
2
In addition, individual editors provide their own additional commands for loading text from places, saving text to places, and various other specialized functions which are denoted in the above list with (M),(N),(V) according as they apply to the mail editor, the note editor, or the verb editor, respectively.
2
2
Note that a given editor only allows you one session at a time (ie. one verb, one note, or one mail message). If you leave an editor without either aborting or compiling/saving/sending the item you're working on, that editor remembers what you are doing next time you enter it, whether you enter it by teleporting or by using the appropriate command. Note that editors are periodically flushed so anything left there for sufficiently long will eventually go away.
2
2
A player may have his own .edit_options property which is a list containing one or more (string) flags from the following list
2
2
quiet_insert
2
suppresses those annoying "Line n added." or "Appended..." messages
2
that one gets in response to 'say' or 'emote'. This is useful if you're
2
entering a long list of lines, perhaps via some macro on your client,
2
and you don't want to see an equally long list of "Line n added..."
2
messages. What you do want, however is some indication that this all
2
got through, which is why the "." command is an abbreviation for insert.
2
2
eval_subs
2
Enables the verb editor to process your eval_subs property when
2
compiling your verb. See `help eval' for more information about
2
the eval_subs property.
2
2
There will be more options, some day.
38
5
4
3
2
Syntax: @prev [on <collection>]
2
2
Print the 'previous' message in a given email collection (defaults to your own). The mail system's notion of your 'current message' for that collection is decremented. Thus, e.g., one can review all of one's previous messages one-by-one simply by typing '@prev' repeatedly.
38
5
4
6
2
Syntax:
2
@unlock_for_open <container>
2
2
Clears the lock which restricts who may open <container>. See 'help locking' for general information about locking.
2
2
See 'help containers' for information on containers.
38
5
4
6
2
Syntax:
2
@lock_for_open <container> with <key expression>
2
2
Set the lock on <container> which restricts who can open it. See 'help locking' for general information about locking and 'help keys' for the syntax and semantics of key expressions.
2
2
See 'help containers' for information on containers.
38
5
4
9
2
Syntax:
2
@opacity <container> is <integer>
2
2
The opacity can take on one of three values:
2
0: The container is transparent and you can always see into it.
2
1: The container is opaque, and you cannot see into it when closed
2
2: The container is a black hole, and you can never see into it whether closed or open.
2
2
The default @opacity is 1.
38
5
4
49
2
*subst*
2
Several kinds of messages can be set on a container object; they are printed to various audiences at certain times whenever an attempt is made to use the container. The ones whose names begin with 'o' are always shown prefixed with the name of the player making the attempt and a single space character. The standard pronoun substitutions (with respect to the player) are made on each message before it is printed; see 'help pronouns' for details.
2
2
The default message is given in brackets after each name below:
2
2
@empty[%[$container.empty_msg]]
2
Printed in place of the contents list when the container is empty.
2
2
@open [%[$container.open_msg]]
2
Printed to the player who successfully opens the container.
2
2
@oopen [%[$container.oopen_msg]]
2
Printed to others in the same room if the player successfully opens the container.
2
2
@open_fail [%[$container.open_fail_msg]]
2
Printed to the player who cannot open the container.
2
2
@oopen_fail [%[$container.oopen_fail_msg]]
2
Printed to others in the room when a player fails to open a container.
2
2
@close [%[$container.close_msg]]
2
Printed to the player who closes a container.
2
2
@oclose [%[$container.oclose_msg]]
2
Printed to others in the room when a player closes a container.
2
2
@put [%[$container.put_msg]]
2
Printed to a player when an object is successfully placed in a container.
2
2
@oput [%[$container.oput_msg]]
2
Printed to others in the room when a player successfully places an object in a container.
2
2
@put_fail [%[$container.put_fail_msg]]
2
Printed when a player fails to put an object in a container.
2
2
@oput_fail [%[$container.oput_fail_msg]]
2
Printed to others in the room when a player fails to place an object in a container.
2
2
@remove [%[$container.remove_msg]]
2
Printed when a player succeeds in removing an object from a container.
2
2
@oremove [%[$container.oremove_msg]]
2
Printed to others in the room when a player succeeds in removing an object from a container.
2
2
@remove_fail [%[$container.remove_fail_msg]]
2
Printed when a player fails to remove an object from a container.
2
2
@oremove_fail [%[$container.oremove_fail_msg]]
2
Printed to others in the room when a player fails to remove an object from a container.
38
5
4
3
2
Syntax: @memory
2
2
Prints out all information available on the current memory-usage behavior of the MOO server. Probably only a wizard, if anyone, cares about this.
38
1
4
2
2
*forward*
2
say
38
1
4
2
2
*forward*
2
emote
38
1
4
6
2
Syntax: @lastlog
2
@lastlog <player>
2
2
The first form prints out a list of all players, roughly sorted by how long it's been since that player last connected to the MOO. For each player, the precise time of their last connection is printed.
2
2
The second form only shows the last-connection time for the named player.
38
1
4
3
2
Syntax: @version
2
2
Prints out the version number for the currently-executing MOO server.
38
1
4
4
2
Here are a few commands of occasional utility that didn't fit into any of the neat categories for the rest of the help system:
2
2
@version -- printing the MOO server version number
2
@lastlog -- finding out when some player last connected to the MOO
38
1
4
2
2
*forward*
2
put
38
1
4
2
2
*forward*
2
help
38
1
4
2
2
*forward*
2
help
38
1
4
4
2
Syntax: put <object> into <container>
2
insert <object> in <container>
2
2
Moves the named object into the named container. Sometimes the owners of the object and/or the container will not allow you to do this.
38
1
4
2
2
*forward*
2
take
38
1
4
3
2
Syntax: burn <letter>
2
2
Destroy the named letter irretrievably. Only players who can read the letter can do this.
38
1
4
1
2
A letter is a special kind of note (see 'help notes') with the added feature that it can be recycled by anyone who can read it. This is often useful for notes from one player to another. You create the letter as a child of the generic letter, $letter (see 'help @create' and 'help write'), encrypt it so that only you and the other player can read it (see 'help encrypt') and then either give it to the player in question or leave it where they will find it. Once they've read it, they can use the 'burn' command to recycle the letter; see 'help burn' for details.
38
1
4
3
2
Syntax: decrypt <note>
2
2
Removes any restriction on who may read the named note or letter. Only the owner of a note may do this.
38
1
4
3
2
Syntax: encrypt <note> with <key-expression>
2
2
Restricts the set of players who can read the named note or letter to those for whom the given key expression is true. See 'help keys' for information on the syntax and semantics of key expressions. Only the owner of a note may do this.
38
1
4
3
2
Syntax: delete <line-number> from <note>
2
2
Removes a single line of text from a note. The first line of text is numbered 1, the second is 2, and so on. Only the owner of a note may do this.
38
1
4
3
2
Syntax: erase <note>
2
2
Deletes all of the text written on a note or letter. Only the owner of a note may do this.
38
1
4
3
2
Syntax: write "<any text>" on <note>
2
2
Adds a line of text to the named note or letter. Only the owner of a note may do this.
38
1
4
3
2
Syntax: read <note>
2
2
Prints the text written on the named object, usually a note or letter. Some notes are encrypted so that only certain players may read them.
38
1
4
10
2
Syntax: examine <object>
2
exam <object>
2
2
Prints several useful pieces of information about the named object, including the following:
2
+ its full name, object number, and aliases
2
+ its owner's name
2
+ its description
2
+ its key expression (if it is locked and if you own it)
2
+ its contents
2
+ the 'obvious' verbs defined on it
38
1
4
2
2
*forward*
2
give
38
1
4
10
2
The representation of key expressions is very simple and makes it easy to construct new keys on the fly.
2
2
Objects are represented by their object numbers and all other kinds of key expressions are represented by lists. These lists have as their first element a string drawn from the following set:
2
"&&" "||" "!" "?"
2
For the first two of these, the list should be three elements long; the second and third elements are the representations of the key expressions on the left- and right-hand sides of the appropriate operator. In the third case, "!", the list should be two elements long; the second element is again a representation of the operand. Finally, in the "?" case, the list is also two elements long but the second element must be an object number.
LambdaMOO supports a simple but powerful notation for specifying locks on objects, encryption on notes, and other applications. The idea is to describe a constraint that must be satisfied concerning what some object must be or contain in order to use some other object.
2
2
The constraint is given in the form of a logical expression, made up of object numbers connected with the operators 'and', 'or', and 'not' (written '&&', '||', and '!', for compatibility with the MOO programming language). When writing such expressions, though, one usually does not use object numbers directly, but rather gives their names, as with most MOO commands.
2
2
These logical expressions (called 'key expressions') are always evaluated in the context of some particular 'candidate' object, to see if that object meets the constraint. To do so, we consider the candidate object, along with every object it contains (and the ones those objects contain, and so on), to be 'true' and all other objects to be 'false'.
2
2
As an example, suppose the player Munchkin wanted to lock the exit leading to his home so that only he and the holder of his magic wand could use it. Further, suppose that Munchkin was object #999 and the wand was #1001. Munchkin would use the '@lock' command to lock the exit with the following key expression:
2
me || magic wand
2
and the system would understand this to mean
2
#999 || #1001
2
That is, players could only use the exit if they were (or were carrying) either #999 or #1001.
2
2
To encrypt a note so that it could only be read by Munchkin or someone carrying his book, his bell, and his candle, Munchkin would use the 'encrypt' command with the key expression
2
me || (bell && book && candle)
2
2
Finally, to keep players from taking a large gold coffin through a particularly narrow exit, Munchkin would use this key expression:
2
! coffin
2
That is, the expression would be false for any object that was or was carrying the coffin.
2
2
There is one other kind of clause that can appear in a key expression:
2
? <object>
2
This is evaluated by testing whether the given object is unlocked for the candidate object; if so, this clause is true, and otherwise, it is false. This allows you to have several locks all sharing some single other one; when the other one is changed, all of the locks change their behavior simultaneously.
2
2
[Note to programmers: The internal representation of key expressions, as stored in .key on every object, for example, is very simple and easy to construct on the fly. For details, see 'help key-representation'.]
38
1
4
3
2
Syntax: @unlock <object>
2
2
Clear any lock that might exist on the given object. See 'help locking' for general information about locking.
38
1
4
5
2
Syntax: @lock <object> with <key expression>
2
2
Set a lock on <object> to restrict its use. See 'help locking' for general information about locking and 'help keys' for the syntax and semantics of key expressions.
2
2
N.B. In the case of rooms, you are actually better off setting room.free_entry to 0 thus preventing teleportation and then @locking the various entrances. The problem with @locking the room itself is that this can make it impossible to drop objects in the room.
38
1
4
21
2
It is frequently useful to restrict the use of some object. For example, one might want to keep people from using a particular exit unless they're carrying a bell, a book, and a candle. Alternatively, one might allow anyone to use the exit unless they're carrying that huge golden coffin in the corner. LambdaMOO supports a general locking mechanism designed to make such restrictions easy to implement, usually without any programming.
2
2
Every object supports a notion of being 'locked' with respect to certain other objects. For example, the exit above might be locked for any object that was carrying the coffin object but unlocked for all other objects. In general, if some object 'A' is locked for another object, 'B', then 'B' is usually prevented from using 'A'. Of course, the meaning of 'use' in this context depends upon the kind of object.
2
2
The various standard classes of objects use locking as follows:
2
+ Rooms and containers refuse to allow any object inside them if they're locked for it.
2
+ Exits refuse to transport any object that they're locked for.
2
+ Things (including notes and letters) cannot be moved to locations that they're locked for.
2
2
There are two sides to locking:
2
+ How is it specified whether one object is locked for another one?
2
+ What is the effect of an object being locked?
2
Note that these two questions are entirely independent: one could invent a brand-new way to specify locking, but the effect of an exit being locked would be unchanged.
2
2
[Note to programmers: the interface between these two sides is the verb x:is_unlocked_for(y), which is called by x to determine if it is locked for the object y. The way in which 'is_unlocked_for' is implemented is entirely independent of the ways in which x uses its results. Note that you can play on either side of this interface with your own objects, either defining new implementations of 'is_unlocked_for' that match your particular circumstances or having your objects interpret their being locked in new ways.]
2
2
There is a default way to specify locks on objects; the following help topics cover the relevant commands:
2
2
@lock -- setting a lock on an object
2
@unlock -- clearing the lock on an object
2
keys -- describes the language used to describe lock keys
38
1
4
28
2
*subst*
2
Several kinds of messages can be set on 'things', objects that have $thing as an ancestor (see 'help messages' for instructions on doing so). They are printed to various audiences under various circumstances when an attempt is made to 'take' or 'drop' a thing. The ones whose names begin with 'o' are always shown prefixed with the name of the player making the attempt and a single space character. The standard pronoun substitutions (with respect to the player) are made on each message before it is printed; see 'help pronouns' for details.
2
2
The default message is given in brackets after each name below:
2
2
@take_failed [%[$thing.take_failed_msg]]
2
Printed to a player who fails to take the object.
2
2
@otake_failed [%[$thing.otake_failed_msg]]
2
Printed to others in the same room if a player fails to take the object.
2
2
@take_succeeded [%[$thing.take_succeeded_msg]]
2
Printed to a player who succeeds in taking the object.
2
2
@otake_succeeded [%[$thing.otake_succeeded_msg]]
2
Printed to others in the same room if a player succeeds in taking the object.
2
2
@drop_failed [%[$thing.drop_failed_msg]]
2
Printed to a player who fails to drop the object.
2
2
@odrop_failed [%[$thing.odrop_failed_msg]]
2
Printed to others in the same room if a player fails to drop the object.
2
2
@drop_succeeded [%[$thing.drop_succeeded_msg]]
2
Printed to a player who succeeds in dropping the object.
2
2
@odrop_succeeded [%[$thing.odrop_succeeded_msg]]
2
Printed to others in the room if a player succeeds in dropping the object.
38
1
4
2
2
*forward*
2
drop
38
1
4
9
2
Syntax: take <object>
2
get <object>
2
take <object> from <container>
2
get <object> from <container>
2
remove <object> from <container>
2
2
The first two forms pick up the named object and place it in your inventory. Sometimes the owner of the object won't allow it to be picked up for some reason.
2
2
The remaining forms move the named object from inside the named container (see 'help containers') into your inventory. As before, sometimes the owner of an object will not allow you to do this.
38
1
4
3
2
Syntax: @messages <object>
2
2
List all of the messages that can be set on the named object and their current values. See 'help messages' for more details.
38
1
4
67
2
Some kinds of messages are not printed directly to players; they are allowed to contain special characters marking places to include the appropriate pronoun for some player. For example, a builder might have a doorway that's very short, so that people have to crawl to get through it. When they do so, the builder wants a little message like this to be printed:
2
2
Balthazar crawls through the little doorway, bruising his knee.
2
2
The problem is the use of 'his' in the message; what if the player in question is female? The correct setting of the 'oleave' message on that doorway is as follows:
2
2
"crawls through the little doorway, bruising %p knee."
2
2
The '%p' in the message will be replaced by either 'his', 'her', or 'its', depending upon the gender of the player.
2
2
As it happens, you can also refer to elements of the command line (e.g., direct and indirect objects) the object issuing the message, and the location where this is all happening. In addition one can refer to arbitrary string properties on these objects, or get the object numbers themselves.
2
2
The complete set of substitutions is as follows:
2
2
%% => `%' (just in case you actually want to talk about percentages).
2
Names:
2
%n => the player
2
%t => this object (i.e., the object issuing the message,... usually)
2
%d => the direct object from the command line
2
%i => the indirect object from the command line
2
%l => the location of the player
2
Pronouns:
2
%s => subject pronoun: either `he', `she', or `it'
2
%o => object pronoun: either `him', `her', or `it'
2
%p => posessive pronoun (adj): either `his', `her', or `its'
2
%q => posessive pronoun (noun): either `his', `hers', or `its'
2
%r => reflexive pronoun: either `himself', `herself', or `itself'
2
General properties:
2
%(foo) => player.foo
2
%[tfoo], %[dfoo], %[ifoo], %[lfoo]
2
=> this.foo, dobj.foo, iobj.foo, and player.location.foo
2
Object numbers:
2
%# => player's object number
2
%[#t], %[#d], %[#i], %[#l]
2
=> object numbers for this, direct obj, indirect obj, and location.
2
2
In addition there is a set of capitalized substitutions for use at the
2
beginning of sentences. These are, respectively,
2
2
%N, %T, %D, %I, %L for object names,
2
%S, %O, %P, %Q, %R for pronouns, and
2
%(Foo), %[dFoo] (== %[Dfoo] == %[DFoo]),... for general properties
2
2
Note: there is a special exception for player .name's which are assumed to
2
already be capitalized as desired.
2
2
There may be situations where the standard algorithm, i.e., upcasing the first letter, yields something incorrect, in which case a "capitalization" for a particular string property can be specified explicitly. If your object has a ".foo" property that is like this, you need merely add a ".fooc" (in general .(propertyname+"c")) specifying the correct capitalization. This will also work for player .name's if you want to specify a capitalization that is different from your usual .name
2
2
Example:
2
Rog makes a hand-grenade with a customizable explode message.
2
Suppose someone sets grenade.explode_msg to:
2
2
"%N(%#) drops %t on %p foot. %T explodes.
2
%L is engulfed in flames."
2
2
If the current location happens to be #3443 ("yduJ's Hairdressing Salon"),
2
the resulting substitution may produce, eg.,
2
2
"Rog(#4292) drops grenade on his foot. Grenade explodes.
2
YduJ's Hairdressing Salon is engulfed in flames."
2
2
which contains an incorrect capitalization.
2
yduJ may remedy this by setting #3443.namec="yduJ's Hairdressing Salon".
2
2
Note for programmers:
2
In programs, use $string_utils:pronoun_sub().
2
%n actually calls player:title() while %(name) refers to player.name directly.
38
1
4
22
2
*subst*
2
Several kinds of messages can be set on an exit object (see 'help messages' for instructions on doing so); they are printed to various audiences at certain times whenever an attempt is made to go through the exit. The ones whose names begin with 'o' are always shown prefixed with the name of the player making the attempt and a single space character. The standard pronoun substitutions (with respect to the player) are made on each message before it is printed; see 'help pronouns' for details.
2
2
The default message is given in brackets after each name below:
2
2
@leave [%[$exit.leave_msg]]
2
Printed to the player just before they successfully use the exit.
2
2
@oleave [%[$exit.oleave_msg||"has left."]]
2
Printed to others in the source room when a player successfully uses the exit.
2
2
@arrive [%[$exit.arrive_msg]]
2
Printed to the player just after they successfully use the exit.
2
2
@oarrive [%[$exit.oarrive_msg||"has arrived."]]
2
Printed to others in the destination room when a player successfully uses the exit.
2
2
@nogo [%[$exit.nogo_msg||"You can't go that way."]]
2
Printed to the player when they fail in using the exit.
2
2
@onogo [%[$exit.onogo_msg]]
2
Printed to others when a player fails in using the exit.
38
1
4
18
2
Most objects have messages that are printed when a player succeeds or fails in manipulating the object in some way. Of course, the kinds of messages printed are specific to the kinds of manipulations and those, in turn, are specific to the kind of object. Regardless of the kind of object, though, there is a uniform means for listing the kinds of messages that can be set and then for setting them.
2
2
The '@messages' command prints out all of the messages you can set on any object you own. Type 'help @messages' for details.
2
2
To set a particular message on one of your objects use a command with this form:
2
@<message-name> <object> is "<message>"
2
where '<message-name>' is the name of the message being set, <object> is the name or number of the object on which you want to set that message, and <message> is the actual text.
2
2
For example, consider the 'leave' message on an exit; it is printed to a player when they successfully use the exit to leave a room. To set the 'leave' message on the exit 'north' from the current room, use the command
2
@leave north is "You wander in a northerly way out of the room."
2
2
[Note to programmers: This class of commands automatically applies to any property whose name ends in '_msg'. Thus, in the example above, the command is setting the 'leave_msg' property of the named exit. You can get such a command to work on new kinds of objects simply by giving the appropriate properties names that end in '_msg'. Additionally, in many cases the _msg property is accompanied by a _msg verb, which defaultly returns the named property, but which is available to be customized in more complex ways than allowed by simple string substitution. You should check for the particular property you're considering whether the verb form exists (typically with @list).]
2
2
The following help topics describe the uses of the various messages available on standard kinds of objects:
2
2
container-messages -- the messages on objects that can contain other objects
2
exit-messages -- the messages on exit objects
2
thing-messages -- the messages on objects that can be taken and dropped
38
1
4
5
2
Most objects have one or more descriptive pieces of text associated with them; these texts are printed under various circumstances depending on the kind of text. For example, every object has a 'description' text that is printed whenever a player looks at the object. The following help topics discuss the commands for manipulating these descriptive texts on your objects:
2
2
@rename -- setting the name and aliases of your objects
2
@describe -- setting what others see when they look at your objects
2
messages -- listing and setting the other descriptive texts on an object
38
1
4
13
2
Syntax: @describe <object> as <description>
2
2
Sets the description string of <object> to <description>. This is the string that is printed out whenever someone uses the 'look' command on <object>. To describe yourself, use 'me' as the <object>.
2
2
Example:
2
Munchkin types this:
2
@describe me as "A very fine fellow, if a bit on the short side."
2
People who type 'look Munchkin' now see this:
2
A very fine fellow, if a bit on the short side.
2
2
Note for programmers:
2
The description of an object is kept in its .description property.
2
For descriptions of more than one paragraph, .description can be a list of strings.
38
1
4
3
2
Syntax: @add-entrance <exit-object-number>
2
2
Add the exit with the given object number as a recognized entrance to the current room (that is, one whose use is not considered teleportation). Usually, @dig does this for you, but it doesn't if you don't own the room in question. Instead, it tells you the object number of the new exit and you have to find the owner of the room and get them to use the @add-entrance command to link it up.
38
1
4
3
2
Syntax: @add-exit <exit-object-number>
2
2
Add the exit with the given object number as a conventional exit from the current room (that is, an exit that can be invoked simply by typing its name, like 'east'). Usually, @dig does this for you, but it doesn't if you don't own the room in question. Instead, it tells you the object number of the new exit and you have to find the owner of the room and get them to use the @add-exit command to link it up.
38
1
4
8
2
The topology of the MOO universe is determined by the rooms that exist and the exits that connect them. Several commands are available for creating and discovering the topology of the MOO. Help on them is available under the following topics:
2
2
@dig -- creating new rooms and exits
2
@add-exit -- adding other players' exits from your rooms
2
@add-entrance -- adding other player's entrances to your rooms
2
@exits -- listing all of the conventional exits from your rooms
2
@entrances -- listing all of the conventional entrances to your rooms
2
@resident -- listing or changing the residents of your rooms
38
1
4
8
2
Syntax: @classes
2
@classes <class-name> ...
2
2
The wizards have identified several useful classes of objects in the database. The @classes command is used to see which classes exist and what their member objects are.
2
2
The first form simply lists all of the defined classes along with short descriptions of the membership of each.
2
2
The second form prints an indented listing of that subset of the object parent/child hierarchy containing the objects in the class(es) you specify.
`@audit' prints a report of all of the objects you own.
2
`@audit player' prints the same report for another player.
2
2
The `for' string restricts the search to objects whose names begin with that string.
2
It is also possible to restrict the range of object numbers to include only those above a given number (`from') or below a given number (`to').
2
2
All forms of @audit print a report:
2
2
#14 Gemba [The Pool]
2
#144 Popgun [Gemba]
2
#1479 Cockatoo *[The Living Room]
2
#1673 Bottom of Swimming Pool
2
#2147 Cavern <-*west
2
#2148 tunnel Bottom of Swimming ->Cavern
2
2
The first column is the object's number, the second its name. The third column shows the object's location: Gemba is in The Pool, and is carrying the Popgun (#144).
2
For exits, the third column shows source ->dest.
2
For rooms, the third column shows any entrances owned by someone else.
2
Object location, exit sources and destinations owned by another player are preceded by a *.
2
2
@audit uses a property .owned_objects on the player, for speed. This property is updated at the time of each object creation and destruction and ownership change. The verb @auditdb (same args as @audit) actually searches through the entire database for objects.
2
2
See also @verify-owned, @sort-owned, and @add-owned.
2
2
See also @prospectus, which gives some additional information.
38
1
4
3
2
Syntax: @count
2
2
Prints out the number of objects you own. Do not be surprised if this is one larger than you think it should be: remember that your player object is owned by you as well, even though you didn't create it in the usual way.
38
1
4
4
2
*forward*
2
common_quota
2
2
To get a larger quota, talk to a wizard. They will take a look at what you've done with the objects you've built so far and make a determination about whether or not it would be a net gain for the MOO community if you were to build some more things. If so, they will increase your quota; if not, they will try to explain some ways in which you could build things that were more useful, entertaining, or otherwise interesting to other players. Wizards may be more impressed by objects which are interactive and employ a fair number of verbs.
38
1
4
12
2
Syntax: @create <class-name> named "<names>"
2
@create <parent-object> named "<names>"
2
2
The main command for creating objects other than rooms and exits (for them, see 'help @dig'; it's much more convenient).
2
2
The first argument specifies the 'parent' of the new object: loosely speaking, the 'kind' of object you're creating. <class-name> is one of the four standard classes of objects: $note, $letter, $thing, or $container. As time goes on, more 'standard classes' may be added. If the parent you have in mind for your new object isn't one of these, you may use the parent's name (if it's in the same room as you) or else its object number (e.g., #4562).
2
2
The <names> are given in the same format as in the @rename command:
2
<name-and-alias>,<alias>,...,<alias> [preferred]
2
<name>:<alias>,...,<alias> [not preferred]
2
2
See 'help @rename' for a discussion of the difference between a name and an alias.
38
1
4
45
2
This is yduJ's table of tinymud commands and their equivalents in LambdaMOO. A longer document, with discussions of the different verbs and how they have changed, is available via FTP from parcftp.xerox.com as pub/MOO/contrib/TinyMUD-LambdaMOO-equivs. All the commands mentioned here have help nodes on LambdaMOO.
2
2
The following commands are basically the same in MOO and MUD.
2
2
drop(throw), get(take), go, help, home, inventory, look, news, say (",:)
2
2
2
The following commands have no equivalent:
2
2
kill, rob, score, @force
2
2
2
The following commands have the same names and do similar things, but are changed in some way (both syntactic and semantic differences, sometimes quite substantial differences):
The following commands have rough equivalents in LambdaMOO but the name is different:
2
2
TinyMUD name LambdaMOO name
2
------------ --------------
2
QUIT @quit
2
gripe @gripe
2
goto/move go
2
WHO @who
2
@fail @take_failed, @nogo, @drop_failed
2
@find @audit
2
@link @dig, @sethome, @add-exit, @add-entrance
2
@name @rename
2
@ofail @otake_failed, @onogo, @odrop_failed
2
@open @dig
2
@osuccess @oleave, @oarrive, @otake_succeeded,
2
@odrop_succeeded
2
@success @leave, @arrive, @take_succeeded
2
@drop_succeeded
2
@teleport @move
2
2
2
Here are some commands for which no equivalent exists, or for which the equivalent is a complicated set of actions.
2
2
@set, @stats, @unlink
2
2
2
Documentation on most of the LambdaMOO commands mentioned above can be acquired using 'help <command-name>'. A notable exception is the commands like @oarrive and @take_failed that set textual messages on objects. These are described under 'help messages'.
38
1
4
3
2
Syntax: @next [on <collection>]
2
2
Print the `next' message in a given email collection (defaults to your own). The mail system's notion of your 'current message' for that collection is incremented. Thus, e.g., one can read all of one's new messages one-by-one simply by typing '@next' repeatedly.
Prepares for you to compose a MOO email message to the players who either received or composed the indicated message from your collection. The usual editor is invoked (see `help editors' for details). The subject line for the new message will be initialized from that of the indicated message. If you leave off the message number, the reply will be to your current message, if that exists. In fact you may give a general message-sequence (see `help message-sequences') argument here, provided that it indicates only a single message (e.g., `@answer last:1')
2
2
If there is a Reply-to: field in the message you are @answer'ing, its contents will be used to initialize the To: line of your reply. Otherwise, a To: line is determined depending on whether you specified `sender' or `all' in the command line (or your .mail_options).
2
2
`include' includes the text of the original message in your reply, `noinclude' does not.
2
2
`sender', `all', `include', and `noinclude' can each be abbreviated (e.g., `@answer i').
2
2
Defaults are `sender' and `noinclude', but you can change this by setting your .mail-options (see `help mail-options').
Deletes the indicated messages from your MOO email collection.
2
By default, your current message is deleted.
2
See `help message-sequence' for the full list of possible arguments.
2
You get the message numbers for use here by typing the '@mail' command.
2
2
There is no confirmation for this action, so be careful. While it is true that @unrmmail will be able to bring back the messages deleted by the last @rmm, any messages deleted before then are really gone, i.e., irrecoverable. See `help @unrmmail' for more information.
2
2
This command may be used on other mail recipients (children of $mail_recipient), but only ones to which you have write access (you either have to own it or be on good terms with whoever does...).
38
5
4
14
2
Syntax: @read <message-number>
2
@read
2
@peek ...
2
2
Prints the contents of the indiciated messages from your MOO email collection. You get the message numbers for use here by typing the '@mail' command, which prints a table of contents for your entire MOO email collection. If no arguments are given to @read, then the 'current message' in your collection is printed. In any case, the 'current message' after @read finishes is the last one printed.
2
2
The most general form of the @read command is
2
2
@read <message-sequence> [on *<collection>]
2
2
where <message-sequence> is as described in `help message-sequences'.
2
As with the @mail command you may @read messages on any publically readable collection (child of $mail_recipient).
2
2
The @peek command is a variant of @read that works no differently except that it refrains from setting your `current message'. This is useful, for example, if you want to see some particular message on a collection without losing track of where you are in it.
Prepares for you to compose a MOO email message to the recipients named on the command line. A recipient can be specified by giving a player name or object-id, or a '*' followed by the name or object-id of some non-player mail recipient (e.g., a mailing list or a mail folder) -- a list of such non-player recipients is available from within the mailroom with the 'showlists' command.
2
2
The usual editor is invoked.
2
You will be prompted for a subject line if you did not specify one in the @send command (see `help mail_options' for how to avoid this).
2
Use `say' (") to insert lines in the body of your message.
2
See `help editors' for details.
2
2
Giving this command without arguments resumes editing the previous unsent draft message if one exists.
38
5
4
33
2
The MOO email system allows you to send and receive messages to and from other players. It provides commands to view and manage your own collection of saved messages and, in addition, to browse through other collections that may be available (e.g.,archives of public mailing lists). Help is available on the following commands:
2
2
@mail -- seeing a table of contents for a collection of email messages
2
@read -- reading individual messages
2
@next -- reading the 'next' message
2
@prev -- reading the 'previous' message
2
2
@send -- composing and sending a message to other players
2
@answer -- replying to one of the messages in a collection
2
@forward -- resending one of the messages in a collection somewhere else
2
2
@rmmail -- discarding some subset of a collection
2
@unrmmail -- undoing the most recent @rmm on a collection
2
@renumber -- renumbering the messages in a collection
2
2
@mail-option -- describes and sets various customization flags
2
2
help mail-forwarding
2
-- describes mail forwarding
2
help message-sequences
2
-- describes message-sequences arguments to @mail, @read, @rmm, and @answer.
2
2
For viewing collections other from your own, the following commands are useful:
2
2
@rn -- list those collections that have new messages on them
2
@subscribe -- indicate that you want @rn to report on a given collection
2
and add yourself to its .mail_notify list
2
@skip -- ignore any remaining new messages in a given collection
2
@unsubscribe -- ignore a given collection entirely from now on
2
and remove yourself from its .mail_notify list
2
@unsubscribed-- show the mailing lists that you aren't subscribed to.
2
@subscribed -- like @rn, but shows all lists that you are subscribed to
2
even if they have no new activity
38
5
4
13
2
Syntax: @gripe <anything> ...
2
2
Puts you into the MOO mail system to register a complaint (or, conceivably, a compliment) with the wizards. The rest of the command line (the <anything> ... part) is used as the subject line for the message. More information on using the MOO mail system is given once you're in it.
2
2
You may hear back from the wizards eventually; see 'help @mail' for how to read their reply.
2
2
Example:
2
Munchkin types:
2
@gripe The little bird
2
"How come I can't ever see the little bird in the cuckoo clock?
2
" -- A frustrated player
2
send
2
and, somewhat later, the wizards reply with a note about being sure to look while the clock is chiming.
38
5
4
11
2
The primary means for players to extend the MOO is for them to create new objects with interesting behavior. There are convenient commands for creating and recycling objects and for keeping track of the objects you've created. Help is available on these commands in the following topics:
2
2
@dig -- conveniently building new rooms and exits
2
@create -- making other kinds of objects
2
@recycle -- destroying objects you no longer want
2
@quota -- determining how many more objects you can build
2
@count -- determining how many objects you already own
2
@audit -- listing all of your objects
2
@classes -- listing all of the public classes available for your use
2
@realm -- listing the parenting tree for objects owned by one or more players
2
@move -- moving your objects from place to place
38
1
4
16
2
Syntax: @mail
2
@mail new (to see recent messages)
2
@mail 1-$ (to see *all* messages)
2
2
Shows a table of contents for your MOO email message collection. You are notified when you connect to the MOO if there are any such messages. A little arrow indicates the mail system's notion of your 'current message'.
2
The first form lists all of your messages or the last 15 if you have more than that many; the second form lists only those messages after your `current message'. The third form shows your entire collection.
2
2
If you have a large number of mail messages, you can give arguments so that @mail only lists the messages you're interested in. You can also list messages residing on mail recipients which are public or for which you have read access.
2
The general format is
2
2
@mail <message-sequence> [on *<recipient>]
2
2
<recipient> must name some child of $mail_recipient (e.g., a mailing list);
2
<message-sequence> can be a sequence of message numbers; you can also scan the recipient for articles that fit a given description, as specified in `help message-sequences'.
2
2
Note that if you view mail on some other recipient and have "sticky" in your .mail_options (see `help mail-options'), all further mail commands (e.g., @read, @next, @rmm,...) will apply to that recipient. In this case use `@mail on me' to go back to looking at your own mail.
38
1
4
4
2
Syntax: @listgag
2
@gaglist
2
2
Shows you a list of the players and objects currently on your 'gag list'. You don't see any messages that result from actions initiated by the players or objects on this list. In particular, you will not hear them if they try to speak, emote, or whisper to you. See 'help gagging' for an explanation of gagging in general.
38
1
4
9
2
Syntax: @ungag <player or object>
2
@ungag everyone
2
2
Remove the given player or object (or, in the second form, everyone) from your 'gag list'. You will once again see any messages that result from actions initiated by the ungagged player(s) or objects. In particular, you will once again be able to hear them if they speak, emote, or whisper to you. See 'help gagging' for an explanation of gagging in general.
2
2
Example:
2
Munchkin types:
2
@ungag Grover
2
and is once again able to hear Grover's witty remarks. Sigh...
38
1
4
12
2
Syntax: @gag <player or object> [<player or object>...]
2
2
Add the given players to your 'gag list'. You will no longer see any messages that result from actions initiated by these players. In particular, you will not hear them if they try to speak, emote, or whisper to you. See 'help gagging' for an explanation of gagging in general.
2
2
Example:
2
Munchkin types:
2
@gag Grover
2
and no longer hears anything that Grover says. What a relief!
2
2
If you specify an object, then any text originating from that object will not be printed. Example: Noisy Robot prints "Hi there" every 15 seconds. In order to avoid seeing that, Munchkin types:
2
@gag Noisy
2
and no longer hears that robot! (Munchkin must be in the same room as Noisy Robot for this to work, or know its object number.)
38
1
4
8
2
Syntax: go <direction> ...
2
2
Invokes the named exits in the named order, moving through many rooms in a single command.
2
2
Example:
2
Munchkin types:
2
go n e e u e e s e
2
and moves quite rapidly from the Living Room all the way to the Bovine Illuminati Atrium, all in one command.
38
1
4
7
2
Syntax: @password <old-password> <new-password>
2
2
Changes your player's password (as typed in the 'connect' command when you log in to the MOO) to <new-password>. For security reasons, you are required to type your current (soon to be old) password as the first argument.
2
2
Your password is stored in an encrypted form in the MOO database; in principle, not even the wizards can tell what it is, though they can change it, of course. It is recommended that your password not be your name or a common word; MOO passwords have been stolen or cracked in the past and characters have been made unhappy by such theft. Your password is your security; choose a safe one.
2
2
Only the first 8 characters of a password are significant.
38
1
4
3
2
Syntax: @sethome
2
2
Sets your designated home (see `help home') to be the room you're in now. If the current room wouldn't allow you to teleport in, then the `@sethome' command nicely refuses to set your home there. This avoids later, perhaps unpleasant, surprises. Additionally, your home must be a room that will allow you to stay there. Rooms which you own will do this, as will rooms to which you have been added as a resident. See the @resident command for help on adding someone as a resident to a room you own.
38
1
4
9
2
*subst*
2
Syntax: @who
2
@who <player> [<player> ... ]
2
2
The first form lists all of the currently-connected players, along with the amount of time they've been connected, the amount of time they've been idle, and their present location in the MOO.
2
2
The second form, in which a list of player names is given, shows information for just those players. For any listed players that are not connected, we show the last login time instead of the connect/idle times.
2
2
@who refers to the @who_location message (see 'help messages') on each player's location in order to determine what should be printed in the location column. Pronoun substitutions are done on this string in the usual manner (see 'help pronouns'). The default value is "%[$room.who_location_msg]" (i.e., the room name).
38
1
4
17
2
LambdaMOO is a kind of virtual reality, in which players move about from place to place manipulating their environment in what we hope are amusing, entertaining, or enlightening ways.
2
2
LambdaMOO is more of a pastime than a game in the usual sense; there is no `score' kept, there are no specific goals to attain in general, and there's no competition involved. LambdaMOO participants explore the virtual world, talk to the other participants, try out the weird gadgets that others have built, and create new places and things for others to encounter and enjoy.
2
2
Most commands have the form of simple English sentences:
Don't use English articles (e.g. 'a', 'an', or 'the') in your commands; the MOO won't understand them. You can refer to yourself as 'me' and the room you're in as 'here'.
2
2
The first five kinds of commands you'll want to know are listed below. Type 'help <topic-name>' for details on any of them:
2
2
look -- getting a description of the current room or any other object
2
say -- speaking to the other players in the same room as you
2
@who -- showing which players are currently connected to the MOO
2
movement -- how to move around in the MOO, from room to room
2
@quit -- disconnecting from the MOO
38
1
4
4
2
Syntax: give <object> to <player>
2
hand <object> to <player>
2
2
Move an object from your contents to that of another player. This doesn't change the ownership of the object. Some players may refuse to accept gifts and some objects may refuse to be given.
38
5
4
3
2
Syntax: news
2
2
Read the latest edition of the LambdaMOO Times, which carries articles concerning recent changes to the MOO server or to the main public classes, or whatever the wizards feel like writing about.
38
5
4
5
2
Occasionally, you may run into a situation in which you'd rather not hear from certain other players. It might be that they're being annoying, or just that whatever they're doing makes a lot of noise. Gagging a player will stop you from hearing the results of any task initiated by that player. You can also gag a specific object, if you want to hear what the owner of that object says, but not the output from their noisy robot. The commands to use gagging are listed below; detailed help is available on each of them:
2
2
@gag -- add one or more players to your gag list
2
@ungag -- remove a player from your gag list
2
@listgag -- list the players you currently have gagged
38
5
4
24
2
Syntax: @dig "<new-room-name>"
2
@dig <exit-spec> to "<new-room-name>"
2
@dig <exit-spec> to <old-room-object-number>
2
2
This is the basic building tool. The first form of the command creates a new room with the given name. The new room is not connected to anywhere else; it is floating in limbo. The @dig command tells you its object number, though, so you can use the @move command to get there easily.
2
2
The second form of the command not only creates the room, but one or two exits linking your current location to (and possibly from) the new room. An <exit-spec> has one of the following two forms:
2
<names>
2
<names>|<names>
2
where the first form is used when you only want to create one exit, from your current room to the new room, and the second form when you also want an exit back, from the new room to your current room. In any case, the <names> piece is just a list of names for the exit, separated by commas; these are the names of the commands players can type to use the exit. It is usually a good idea to include explicitly the standard abbreviations for direction names (e.g., 'n' for 'north', 'se' for 'southeast', etc.). DO NOT put spaces in the names of exits; they are useless in MOO.
2
2
The third form of the command is just like the second form except that no new room is created; you instead specify by object number the other room to/from which the new exits will connect.
2
2
NOTE: You must own the room at one end or the other of the exits you create. If you own both, everything is hunky-dorey. If you own only one end, then after creating the exits you should write down their object numbers. You must then get the owner of the other room to use @add-exit and @add-entrance to link your new exits to their room.
2
2
Examples:
2
@dig "The Conservatory"
2
creates a new room named "The Conservatory" and prints out its object number.
2
@dig north,n to "The North Pole"
2
creates a new room and also an exit linking the player's current location to the new room; players would say either 'north' or 'n' to get from here to the new room. No way to get back from that room is created.
2
@dig west,w|east,e,out to "The Department of Auto-Musicology"
2
creates a new room and two exits, one taking players from here to the new room (via the commands 'west' or 'w') and one taking them from the new room to here (via 'east', 'e', or 'out').
2
@dig up,u to #7164
2
creates an exit leading from the player's current room to #7164, which must be an existing room.
38
5
4
5
2
Syntax: @move <thing> to <place>
2
2
Move the specified object to the specified location. This is not guaranteed to work; in particular, the object must agree to be moved and the destination must agree to allow the object in. This is usually the case, however. The special case where <thing> is 'me' is useful for teleporting yourself around.
2
2
If @move doesn't work and you own the room where the object is located, try using @eject instead.
38
5
4
4
2
Syntax: inventory
2
i
2
2
Prints a list showing every object you're carrying.
38
5
4
3
2
Syntax: @entrances
2
2
Prints a list of all recognized entrances to the current room (but only if you own the room). A recognized entrance is one whose use is not considered to be teleportation.
38
5
4
3
2
Syntax: @exits
2
2
Prints a list of all conventional exits from the current room (but only if you own the room). A conventional exit is one that can be used simply by typing its name, like 'east'.
38
5
4
8
2
Syntax: @gender <gender>
2
@gender
2
2
The first form, with an argument, defines your player to have the gender <gender>. If <gender> is one of the standard genders (e.g., 'male', 'female', 'neuter',...), your various pronouns will also be set appropriately, making exits and certain other objects behave more pleasantly for you.
2
2
The second form tells you the current definition of your player's gender, your current pronouns, and the complete list of standard genders.
2
2
It should be noted that some of the "genders" on the standard gender list need verb conjugation in order to work properly and much of the MOO isn't set up for this (...yet). For example, you should expect to see `they is' a fair amount if you @gender yourself `plural'.
38
5
4
3
2
Syntax: @recycle <object-name-or-number>
2
2
Destroys the indicated object utterly and irretrievably. Naturally, you may only do this to objects that you own.
38
5
4
20
2
Syntax: @rename <object> to [name-and-alias],<alias>,...,<alias>
2
@rename <object> to [name]:<alias>,...,<alias>
2
@rename <object>:<verb> to <new-verb-name>
2
2
The first two forms are used to change the name and aliases of an object. The name is what will be used in most printed descriptions of the object. The aliases are the names by which players can refer to the object in commands. Typically you want to include the name in the aliases, as the MOO parser only checks .aliases when matching, so the first syntax is generally preferred.
2
2
If you leave out the "name" part of the list, @rename will leave the object's name as it is, and only change the aliases.
2
2
Note that for renaming players, more stringent rules apply. See `help player-names'. Certain other kinds of objects (e.g., mail recipients) also enforce their own rules w.r.t what they can be named.
2
2
Examples:
2
Munchkin names his dog:
2
@rename #4237 to "Rover the Wonder Dog":Rover,dog
2
Now we'll see 'Rover the Wonder Dog' if we're in the same room as him and we can refer to him as either 'Rover' or just 'dog' in our commands, like 'pet dog'.
2
2
Munchkin changes his dog's aliases:
2
@rename #4237 to ,Rover,dog,Rover the Wonder Dog
2
The name remains the same--we still see 'Rover the Wonder Dog'--but now any of 'Rover', 'dog', or 'Rover the Wonder Dog' can be used to refer to him. This can help reduce confusion.
2
2
The third form of the @rename command is for use by programmers, to change the name of a verb they own. If the <new-verb-name> contains spaces, the verb will have multiple names, one for each space-separated word.
38
5
4
15
2
Containers are objects that allow you to store other objects inside them. The following help topics cover verbs that can be used with containers:
2
2
put -- putting an object into a container
2
remove -- taking an object out of a container
2
2
Containers may be open or closed, using the verbs 'open container' and 'close container'. Containers have a separate lock to determine if a player may open them. See the following help topics:
2
2
@lock_for_open -- setting the lock for opening a container
2
@unlock_for_open -- clearing the lock
2
2
You can make a container by creating a child of the standard container, $container (see 'help @create').
2
2
Containers have a large number of messages which get printed when players act upon them. See 'help container-messages' for more information.
2
2
Containers have opacity. See 'help @opacity' for more information.
38
1
4
15
2
Notes are objects that can have text written on them to be read later. They are useful for leaving messages to people, or for documenting your creations.
2
2
The following help topics cover verbs that can be used with notes:
2
2
read -- reading the text on the note
2
write -- adding text to a note
2
erase -- removing all the text from a note
2
delete -- deleting one line of text from a note
2
2
@notedit -- general editing on the text of a note
2
2
encrypt -- restricting who can read a note
2
decrypt -- undoing a previous encryption
2
2
You can make a note by creating a child of the standard note, $note (see 'help @create'). Note that, like most objects, only the owner of a note can recycle it. If you'd like to make it possible for a reader of your note to destroy it (this is a common desire for notes to other individual players), then you might want to look at 'help letters'.
38
5
4
11
2
Syntax: look
2
look <object>
2
look <object> in <container>
2
2
Show a description of something.
2
2
The first form, with no arguments, shows you the name and description of the room you're in, along with a list of the other objects that are there.
2
2
The second form lets you look at a specific object. Most objects have descriptions that may be read this way. You can look at your own description using 'look me'. You can set the description for an object or room, including yourself, with the 'describe' command (see 'help describe').
2
2
The third form shows you the description of an object that is inside some other object, including objects being carried by another player.
38
5
4
4
2
Syntax: drop <object>
2
throw <object>
2
2
Remove an object you are carrying from your inventory and put it in your current room. Occasionally you may find that the owner of the room won't allow you to do this.
38
5
4
2
2
*forward*
2
take
38
5
4
17
2
Objects usually have verbs defined on them that allow players to manipulate and use them in various ways. Standard ones are:
2
2
get -- pick an object up and place it in your inventory
2
drop -- remove an object from your inventory and place it in the room
2
put -- take an object from your inventory and place it in a container
2
give -- hand an object to some other player
2
look -- see what an object looks like
2
2
You can see what objects you're carrying with the 'inventory' command; see 'help inventory' for details.
2
2
Some specialized objects will have other commands. The programmer of the object will usually provide some way for you to find out what the commands are. One way that works for most objects is the 'examine' command; see 'help examine' for details.
2
2
The following specialized objects have help entries you should consult:
2
2
notes -- objects that allow text to be written on them and read later
2
letters -- notes that a recipient can burn after reading
2
containers -- objects that may contain other objects
38
5
4
18
2
Syntax: help
2
help <topic>
2
help index
2
2
Print out entries from the online documentation system. The commands `?' and `information' (usually abbreviated `info') are synonyms for `help'.
2
2
The first form prints out a summary table of contents for the entire help system.
2
2
The second form prints out the documentation available on the given topic. Many help system entries contain references to other entries accessible in this way. The topic name may be abbreviated; if there is no topic exactly matching the name you give, the help system checks for topics for which the name is a prefix, perhaps with the addition or omission of an initial `@', or perhaps with some confusion beween dashes (-) and underscores (_), e.g.,
2
`bui' instead of `building',
2
`who' instead of `@who',
2
`@wri' instead of `write',
2
`add_ent' instead of `@add-entrance',
2
`unlock-' instead of `@unlock_for_open'
2
2
If the abbreviation you give is ambiguous, you will be presented with a list of the matching complete topic names.
2
2
The `help index' commands prints out a list of indices for the various help databases. Each index gives a list of topics available on that database. It is sometimes easier to find the topics you're interested in this way, rather than tracing through the chain of cross references.
38
1
4
1
2
Rooms may be made by builders, using the DIG verb. By default, all rooms are instances of _the_ room, $room, or #3, which you can examine to see how it works. If you require a room to have a more specific behaviour, you can make a subclass of room.
38
1
4
5
2
The descriptions of most rooms outline the directions in which exits exist. Typical directions include the eight compass points ('north', 'south', 'east', 'west', 'northeast', 'southeast', 'northwest', and 'southwest'), 'up', 'down', and 'out'.
2
2
To go in a particular direction, simply type the name of that direction (e.g, 'north', 'up'). The name of the direction can usually be abbreviated to one or two characters (e.g., 'n', 'sw'). You can also type 'go <direction>' to move; this is particularly useful if you know you're going to type several movement commands in a row (see 'help go').
2
2
In addition to such vanilla movement, some areas may contain objects allowing teleportation and almost all areas permit the use of the 'home' command to teleport you to your designated home (see 'help home' for more details).
38
1
4
6
2
*subst*
2
Syntax: home
2
2
Instantly teleports you to your designated home room.
2
Initially, this room is %[tostr($player_start.name," (",$player_start,")")].
2
You can change your designated home; see 'help @sethome' for details.
38
1
4
15
2
There are several commands available to allow you to communicate with your fellow MOOers. Help is available on the following communication-related topics:
2
2
say -- talking to the other connected players in the room
2
whisper -- talking privately to someone in the same room
2
page -- yelling to someone anywhere in the MOO
2
emote -- non-verbal communication with others in the same room
2
gagging -- screening out noise generated by certain other players
2
news -- reading the wizards' most recent set of general announcements
2
@gripe -- sending complaints to the wizards
2
@typo @bug @idea @suggest
2
-- sending complaints/ideas to the owner of the current room
2
whereis -- locating other players
2
@who -- finding out who is currently logged in
2
mail -- the MOO email system
2
security -- the facilities for detecting forged messages and eavesdropping.
38
1
4
12
2
Syntax: say <anything> ...
2
"<anything> ...
2
2
Says <anything> out loud, so that everyone in the same room hears it. This is so commonly used that there's a special abbreviation for it: any command-line beginning with a double-quote ('"') is treated as a 'say' command.
2
2
Example:
2
Munchkin types this:
2
"This is a great MOO!
2
Munchkin sees this:
2
You say, "This is a great MOO!"
2
Others in the same room see this:
2
Munchkin says, "This is a great MOO!"
38
1
4
2
2
whisper "<text>" to <player>
2
sends the message "<yourname> whispers, "<text>" to you " to <player>, if they are in the room.
38
1
4
27
2
*subst*
2
Syntax: page <player> [[with] <text>]
2
2
Sends a message to a connected player, telling them your location and, optionally, <text>.
2
2
Example:
2
Munchkin types:
2
page Frebble with "Where are you?"
2
Frebble sees:
2
You sense that Munchkin is looking for you in the Kitchen.
2
He pages, "Where are you?"
2
Munchkin sees:
2
Your message has been received.
2
2
Advanced Features:
2
Page refers to the following messages on the players involved (see 'help messages'):
2
2
@page_origin [%[$player.page_origin_msg]]
2
Determines how the recipient is told of your location.
2
2
@page_echo [%[$player.page_echo_msg]]
2
Determines the response received by anyone who pages you.
2
2
@page_absent [%[$player.page_absent_msg]]
2
Determines the response received by anyone who tries to page you when you aren't connected.
2
2
All of these undergo the usual pronoun substitutions (see 'help pronouns') except that in both cases the direct object (%d) refers to the recipent of the page and the indirect object (%i) refers to the sender. You should only change these messages if you want to add to the Virtual Reality feel of the MOO for your character.
38
1
4
18
2
Syntax: emote <anything> ...
2
:<anything> ...
2
::<anything> ...
2
2
Announces <anything> to everyone in the same room, prepending your name. This is commonly used to express various non-verbal forms of communication. In fact, it is so commonly used that there's a special abbreviation for it: any command-line beginning with ':' is treated as an 'emote' command.
2
2
The alternate form, '::' (less commonly 'emote :'), does not insert the space between the player name and the text.
2
2
Examples:
2
Munchkin types this:
2
:wishes he were much taller...
2
Everyone in the same room sees this:
2
Munchkin wishes he were much taller...
2
2
Munchkin types this:
2
::'s eyes are green.
2
Everyone in the same room sees this:
2
Munchkin's eyes are green.
38
1
4
6
2
There are a number of commands available to players for building new parts of the MOO. Help on them is available under the following topics:
2
2
creation -- making, unmaking, and listing your rooms, exits, and other objects
2
topology -- making and listing the connections between rooms and exits
2
descriptions -- setting the names and descriptive texts for new objects
2
locking -- controlling use of and access to your objects
38
1
4
8
2
There are a number of commands for modifying various characteristics of the object representing you in the MOO, your 'player'. Help on them is available in the following topics:
2
2
@describe -- setting what others see when they look at you
2
@gender -- changing your player's gender
2
@password -- changing your player's password
2
@sethome -- changing your designated home room
2
@rename -- changing your name and/or aliases
2
@linelength -- adding word-wrap to the lines you see
38
1
4
18
2
Help is available on the following general topics:
2
2
introduction -- what's going on here and some basic commands
2
index -- index into the help system
2
2
players -- setting characteristics of yourself
2
movement -- moving yourself between rooms
2
communication -- communicating with other players
2
manipulation -- moving or using other objects
2
miscellaneous -- commands that don't fit anywhere else
2
2
building -- extending the MOO
2
programming -- writing code in the MOO programming language
2
editors -- editing text and code in the MOO
2
2
@pagelength -- what to do if lines scroll off your screen too fast
2
@linelength -- what to do if lines are truncated
2
tinymud -- a list of equivalences between MOO and TinyMUD concepts/commands
38
5
4
21
2
Syntax: @edit-option
2
@edit-option <option>
2
2
Synonym: @editoption
2
2
The edit options customize the behavior of the various editors (mail editor, verb editor, etc...) to your particular taste. The first form of this command displays all of your edit options. The second form displays just that one option, one of the flags listed below.
2
2
The remaining forms of this command are for setting your edit options:
2
2
@edit-option +<flag>
2
@edit-option -<flag>
2
@edit-option !<flag> (equivalent to -<flag>)
2
2
These respectively set and reset the specified flag
2
2
-quiet_insert insert (") and append (:) echo back the line numbers
2
+quiet_insert insert (") and append (:) produce no output
2
-eval_subs (VERB EDITOR) ignore .eval_subs when compiling verbs
2
+eval_subs (VERB EDITOR) apply .eval_subs to verbs being compiled
2
-local Use in-MOO text editors.
2
+local Ship text to client for local editing.
38
5
4
2
2
*forward*
2
@edit-options
38
5
4
4
2
Usage: @add-feature <object>
2
@remove-feature <object>
2
2
Add or remove a feature from your list. A feature is an object which provides additional commands you can use. For more information, see `help features'.
38
5
4
2
2
*forward*
2
@add-feature
38
5
4
3
2
Usage: @features [<name>] [for <player>]
2
2
List all of <player>'s features matching <name>, or all of <player>'s features if <name> is not supplied. <player> defaults to you. See `help features' for more information.
38
5
4
3
2
Features are objects that provide you with commands not covered by the ordinary player objects. The advantage of using features is that you can mix and match the things you like; whereas if you like a command that's defined on a player class, you have to also get all the commands it defines, and all the commands its ancestors define.
2
2
You can list your features with the @features command, and add or remove features from your list with the @add-feature and @remove-feature commands.
This spills out all the properties and verbs on an object, calling suspend at appropriate intervals.
2
id=#<id> -- specifies an idnumber to use in place of the object's actual id (for porting to another MOO)
2
noprops -- don't show properties.
2
noverbs -- don't show verbs.
2
create -- indicates that a @create command should be generated and all of the verbs be introduced with @verb rather than @args; the default assumption is that the object already exists and you're just doing this to have a look at it.
2
1
4
1
2
The MOO helps those who help themselves. Try starting with `help summary'.
38
5
4
7
2
Syntax: @rmalias <alias>[,...,<alias>] from <object>
2
@rmalias <alias>[,...,<alias>] from <object>:<verb>
2
2
The first form is used to remove aliases from an object. If the object is a valid player, space and commas will be assumed to be separations between unwanted aliases. Otherwise, only commas will be assumed to be separations.
2
Note that @rmalias will not affect the object's name, only its aliases.
2
2
The second form is for use by programmers, to remove aliases from a verb they own. All spaces and commas are assumed to be separations between unwanted aliases.
38
5
4
22
2
Syntax: @addalias <alias>[,...,<alias>] to <object>
2
@addalias <alias>[,...,<alias>] to <object>:<verb>
2
2
The first form is used to add aliases to an object's list of aliases. You can separate multiple aliases with commas. The aliases will be checked against the object's current aliases and all aliases not already in the object's list of aliases will be added.
2
2
Example:
2
Muchkin wants to add new aliases to Rover the Wonder Dog:
2
@addalias Dog,Wonder Dog to Rover
2
Since Rover the Wonder Dog already has the alias "Dog" but does not have the alias "Wonder Dog", Munchkin sees:
2
Rover the Wonder Dog(#4237) already has the alias Dog.
2
Alias Wonder Dog added to Rover the Wonder Dog(#4237).
2
2
If the object is a player, spaces will also be assumed to be separations between aliases and each alias will be checked against the Player Name Database to make sure no one else is using it. Any already used aliases will be identified.
2
2
Example:
2
Munchkin wants to add his nicknames to his own list of aliases:
2
@addalias Foobar Davey to me
2
@Addalias recognizes that Munchkin is trying to add an alias to a valid player and checks the aliases against the Player Name Database. Unfortunately, DaveTheMan is already using the alias "Davey" so Munchkin sees:
2
DaveTheMan(#5432) is already using the alias Davey
2
Alias Foobar added to Munchkin(#1523).
2
2
The second form of the @addalias command is for use by programmers, to add aliases to a verb they own. All commas and spaces are assumed to be separations between aliases.
38
5
4
5
2
*forward*
2
summary
2
2
Type 'help <topic>' for information on a particular topic.
2
38
5
4
4
2
Every object (including players, rooms, exits) has a name and a set of aliases. The object name is commonly used to display an object in various contexts. The object aliases are used to refer to an object when players type commands.
2
Help is available on the following commands:
2
@rename -- change the names or aliases of an object or yourself.
2
@addalias, @rmalias -- add and remove aliases.
38
5
4
2
2
*forward*
2
name
38
5
4
4
2
Syntax: @set <object>.<prop-name> to <value>
2
2
Changes the value of the specified object's property to the given value.
2
You must have permission to modify the property, either because you own the property or if it is writable.
38
5
4
3
2
*forward*
2
@setprop
2
@set is a valid abbreviation for @setprop.
38
5
4
2
2
*forward*
2
@read
38
5
4
3
2
Syntax: @subscribed
2
2
Like @rn, but shows you ALL mailing lists to which you are subscribed, even those which have new messages.
38
5
4
5
2
Usage: @request <player-name> for <email-address>
2
2
This command available to Guest characters only.
2
2
The @request command requests a new character, registered for your email address. Please use your primary address for this, as your password will be sent to the address provided.
38
5
4
6
2
*subst*
2
A player name must be a single word, must not contain any spaces, backslashes, or quotes, nor can it begin with the characters #, *, (, or ). Finally it cannot be one that is in use by any other player nor any of the words on the following list:
2
2
%;;lns={};for l in ($string_utils:columnize({@$player_db.stupid_names,@$player_db.reserved},6)) lns={@lns," "+l}; endfor return lns;
2
2
Note that these rules apply as well to your single-word aliases, since those can equally well be used to refer to you in commands that match on player names (@who, whereis, ...). There are no restrictions on your multi-word aliases, however the commands that expect player names will not recognize them.
38
5
5
38
5
5
38
4
4
0
38
5
4
9
2
The object $help is the main help database. For every help topic there is a corresponding property on $help, interpreted as follows:
2
2
$help.(topic) = string - one-line help text.
2
$help.(topic) = {"*verb*",@args} - call this:verb(args,{}) to get text
2
$help.(topic) = any other list - multi-line help text
2
2
There is also a "" property which applies in the case of `help' typed without any arguments.
2
2
See the description of $generic_help for more detail.
38
5
4
2
0
127209
0
743583956
2
1
#62
Recycling Center
16
38
-1
-1
-1
5
-1
74
11
_recreate
2
173
-1
_recycle
2
173
-1
_create
2
165
-1
addhist
2
173
-1
show*-history
2
37
-1
request
2
153
5
setup_toad
2
173
-1
add_orphan
38
173
-1
remove_orphan
38
173
-1
valid
2
173
-1
init_for_core
2
173
-1
4
orphans
announce_removal_msg
nhist
history
16
4
0
38
1
2
38
5
0
50
38
0
4
51
4
2
1
2
1
82
4
2
1
2
1
80
4
2
1
2
1
81
4
2
1
2
1
88
4
2
1
2
1
87
4
2
1
2
1
92
4
2
1
2
1
101
4
2
1
2
1
113
4
2
1
2
1
137
4
2
1
77
1
157
4
2
1
77
1
155
4
2
1
77
1
156
4
2
1
2
1
146
4
2
1
2
1
78
4
2
1
2
1
158
4
2
1
2
1
164
4
2
1
2
1
170
4
2
1
2
1
145
4
2
1
2
1
144
4
2
1
228
1
174
4
2
1
2
1
173
4
2
1
228
1
266
4
2
1
228
1
265
4
2
1
228
1
298
4
2
1
2
1
308
4
2
1
2
1
316
4
2
1
2
1
327
4
2
1
2
1
327
4
2
1
2
1
327
4
2
1
2
1
329
4
2
1
147
1
335
4
2
1
2
1
335
4
2
1
2
1
335
4
2
1
2
1
338
4
2
1
2
1
335
4
2
1
77
1
335
4
2
1
77
1
339
4
2
1
77
1
338
4
2
1
2
1
344
4
2
1
2
1
344
4
2
1
147
1
328
4
2
1
2
1
344
4
2
1
2
1
349
4
2
1
2
1
349
4
2
1
2
1
352
4
2
1
2
1
352
4
2
1
2
1
352
4
2
1
2
1
353
4
2
1
2
1
426
4
2
1
2
1
427
4
2
1
2
1
130
38
0
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
4
4
2
2
Recycling Center
2
Center
38
5
2
Object reuse. Call $recycler:_create() to create an object (semantics the same as create()), $recycler:_recycle() to recycle an object. Will create a new object if nothing available in its contents. Note underscores, to avoid builtin :recycle() verb called when objects are recycled. Uses $building_utils:recreate() to prepare objects.
38
5
4
2
0
8708
0
743586009
2
1
#63
Generic Garbage Object
16
2
-1
-1
-1
-1
-1
-1
4
description
2
173
-1
look_self
2
173
-1
title titlec
2
173
-1
tell
2
173
-1
1
aliases
1
4
1
2
garbage
2
1
#64
Mail Options
16
38
-1
-1
-1
67
-1
65
10
actual
38
173
-1
parse_@mail
38
173
-1
parse_sticky parse_manymsgs
38
173
-1
parse_replyto
38
173
-1
show_manymsgs
38
173
-1
show_sticky
38
173
-1
show_@mail
38
173
-1
show_replyto
38
173
-1
show
38
173
-1
check_replyto
38
173
-1
8
show_include
show_all
show_nosubject
show_expert
show_enter
type_manymsgs
type_@mail
type_replyto
16
4
2
2
Original message will not be included in replies
2
Original message will be included in replies
38
5
4
2
2
Replies will go to original sender only.
2
Replies will go to original sender and all previous recipients.
38
5
4
2
2
Mail editor will initially require a subject line.
2
Mail editor will not initially require a subject line.
38
5
4
2
2
Novice mail user...
2
Expert mail user...
38
5
4
2
2
Mail editor will not start with an implicit `enter' command.
2
Mail editor will start with an implicit `enter' command.
./: will show ancestor properties/verbs if none on this.
2
./: will not show ancestor properties/verbs.
38
5
4
3
2
blank_tnt
2
shortprep
2
thisonly
38
1
2
!blank_tnt!shortprep!thisonly!
38
1
4
0
38
1
5
38
5
5
38
4
4
1
2
Display Options
38
5
5
38
5
4
2
0
801
0
743668946
2
1
#67
Generic Option Package
144
38
-1
-1
-1
1
64
69
11
get
38
173
-1
set
38
173
-1
parse
38
173
-1
_name
38
173
-1
add_name
38
173
-1
remove_name
38
173
-1
show
38
173
-1
actual
38
173
-1
istype
38
173
-1
islistof
38
173
-1
desc_type
38
173
-1
4
names
_namelist
extras
namewidth
8
4
0
38
1
2
!
38
1
4
0
38
1
0
15
38
5
5
38
4
4
1
2
Generic Option Package
38
5
2
an option package in need of a description. See `help $generic_option'...
38
5
4
2
0
12754
0
743925775
2
1
#68
List Options
0
38
-1
-1
-1
67
-1
-1
2
actual
38
173
-1
show
38
173
-1
2
show_parentheses
show_nonumbers
10
4
2
2
Parenthesize expressions in listings only as needed.
2
Fully parenthesize expressions in listings.
38
5
4
2
2
Include line numbers.
2
Omit line numbers.
38
5
4
2
2
parentheses
2
nonumbers
38
1
2
!parentheses!nonumbers!numbers!
38
1
4
1
2
numbers
38
1
0
20
38
5
5
38
4
4
1
2
List Options
38
5
5
38
5
4
2
0
1059
0
743926862
2
1
#69
Error Generator
16
2
-1
-1
-1
1
-1
72
18
raise
38
173
-1
E_NONE
38
173
-1
E_TYPE
38
173
-1
E_DIV
38
173
-1
E_PERM
38
173
-1
E_PROPNF
38
173
-1
E_VERBNF
38
173
-1
E_VARNF
38
173
-1
E_INVIND
38
173
-1
E_RECMOVE
38
173
-1
E_MAXREC
38
173
-1
E_RANGE
38
173
-1
E_ARGS
38
173
-1
E_NACC
38
173
-1
E_INVARG
38
173
-1
E_QUOTA
2
173
-1
accept
38
173
-1
name
38
173
-1
1
names
5
4
15
2
E_NONE
2
E_TYPE
2
E_DIV
2
E_PERM
2
E_PROPNF
2
E_VERBNF
2
E_VARNF
2
E_INVIND
2
E_RECMOVE
2
E_MAXREC
2
E_RANGE
2
E_ARGS
2
E_NACC
2
E_INVARG
2
E_QUOTA
2
5
5
2
4
4
1
2
Error Generator
2
5
4
3
2
Object to automatically generate errors.
2
2
raise(error) actually raises the error.
2
5
4
2
0
2141
0
743583960
2
1
#70
Site-Locks
0
38
-1
-1
-1
46
-1
-1
1
init_for_core
38
173
-1
0
18
4
0
38
5
0
743275670
38
1
4
0
38
0
0
1
38
5
2
%n (%#) can't send to moderated list %t (%[#t]) directly.
38
5
4
0
38
5
4
0
38
5
4
1
1
2
38
1
4
2
1
2
1
70
38
1
0
2592000
38
5
0
0
38
1
4
0
38
0
5
38
5
5
38
5
5
38
4
4
1
2
Site-Locks
38
1
2
Notes on annoying sites.
38
5
4
2
0
53720
0
743971475
2
1
#71
housekeeper
19
38
-1
-1
-1
59
-1
337
20
look_self
38
173
-1
cleanup
38
165
-1
replace
38
173
-1
cleanup_list
38
21
-1
add_cleanup
38
93
-2
remove_cleanup
38
29
-1
controls
38
173
-1
continuous
38
165
-1
litterbug
38
173
-1
is_watching
38
173
-1
send_home
38
173
-1
moveit
2
173
-1
ejectit
2
173
-1
is_object_cleaned
38
173
-1
is_litter
38
173
-1
init_for_core
2
173
-1
clean_status
38
173
-1
is_cleaning
38
173
-1
time
38
173
-1
accept
2
173
-1
11
recycle_bins
owners
cleaning
litter
eschews
public_places
task
requestors
destination
clean
testing
72
4
0
38
5
4
1
1
2
38
5
1
-1
38
5
4
0
38
5
4
0
38
5
4
0
38
5
0
0
38
5
4
0
38
5
4
0
38
5
4
0
38
1
0
0
38
5
4
0
38
1
5
38
5
5
38
5
2
here=player.location;me=player
38
5
5
38
5
4
0
38
1
4
2
0
738047225
2
nebula
2
0
5
38
5
5
2
0
0
743752891
2
1
0
0
38
5
5
38
5
5
38
1
5
38
1
5
38
0
5
38
1
0
276800495
38
5
4
1
1
36830
2
1
0
-80
38
1
1
36830
38
4
5
2
0
5
2
0
5
38
5
4
0
38
4
5
38
5
4
0
38
4
0
0
38
4
2
The housekeeper is too busy putting away all of the junk all over LambdaMoo that there isn't time to listen to pages and stuff like that so your page isn't listened to, too bad.
38
5
2
the housekeeper's
38
5
2
The housekeeper's
38
5
5
38
5
5
38
5
5
38
5
4
2
1
122
1
9082
38
5
5
38
5
4
0
38
5
4
2
0
2
0
0
38
4
5
38
4
0
750802956
2
1
0
21
2
0
5
38
5
2
'Self
38
5
2
The housekeeper's
38
5
2
The housekeeper
38
5
2
The housekeeper
38
5
2
'self
38
5
2
the housekeeper's
38
5
2
the housekeeper
38
5
2
the housekeeper
38
5
1
11
38
5
0
0
2
0
5
38
5
0
0
38
5
5
38
5
5
38
5
5
38
5
0
0
2
1
5
38
4
4
1
2
housekeeper
2
1
2
A very clean, neat, tidy person who doesn't mind lugging players and their gear all over the place.
A list of sites where more than 2 levels of host name are
2
significant, e.g., if you want 'parc.xerox.com' to be
2
different than 'cinops.xerox.com', put "xerox.com" as an
2
element in .large_domains.
2
2
.postmaster
2
Email address to which problems with MOO mail should
2
go. This should be a real email address that someone reads.
2
2
.maildrop
2
Hostname to connect to for dropping off mail. Usually can
2
just be "localhost".
2
2
.reply_address
2
If a MOO character sends email, where does a reply go?
2
Inserted in 'From:' for mail from characters without
2
registration addresses.
2
2
.trusts
2
List of (non-wizard) programmers who can call
2
:open, :sendmail, :close
2
2
2
5
4
2
0
11856
0
742893463
2
1
#73
Generic BigList Resident
144
38
-1
-1
-1
1
-1
22
6
_make
2
173
-1
_kill
2
173
-1
_get
38
173
-1
_put
38
173
-1
_genprop
38
173
-1
_ord
38
173
-1
3
_genprop
mowner
_mgr
7
2
38
5
1
4292
38
5
1
5533
38
5
5
38
4
4
3
2
biglist
2
resident
2
gblr
38
5
4
1
2
This is the object you want to use as a parent in order to @create a place for your biglists to live. Suitably sick souls may wish to reimplement :_genprop and :_kill to reclaim unused properties (this :_kill just throws them away and this :_genprop just relentlessly advances.... who cares). Anyway, you'll need to look at $biglist before this will make sense.
38
5
4
2
0
2160
0
743667453
2
1
#74
Generic Feature Object
144
38
-1
-1
-1
5
-1
165
8
help_msg
38
173
-1
look_self
38
173
-1
using this
38
173
-1
examine_commands_ok
2
173
-1
set_feature_ok
38
165
-1
hidden_verbs
38
173
-1
set_feature_verbs
38
165
-1
initialize
38
165
-1
4
warehouse
help_msg
feature_verbs
feature_ok
16
1
24300
38
1
2
The Generic Feature Object--not to be used as a feature object.
38
5
4
1
2
Using
38
1
0
1
38
1
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
4
4
4
2
Generic Feature Object
2
Generic .Features_Huh Object
2
Feature Object
2
.Features_Huh Object
38
5
2
This is the Generic Feature Object. It is not meant to be used as a feature object itself, but is handy for making new feature objects.
This object contains just the raw verbs for getting data from gopher servers and parsing the results. Look at #50122 (Generic Gopher Slate) for one example of a user interface.
2
2
:get(site, port, selection)
2
Get data from gopher server: returns a list of strings, or an error if it couldn't connect. Results are cached.
2
2
:get_now(site, port, selection)
2
Used by $gopher:get. Arguments are the same: this actually gets the
2
data without checking the cache. (Don't call this, since the
like who:notify_lines($gopher:get(..node..)[start..end])
2
2
:clear_cache()
2
Erase the gopher cache.
2
2
:parse(string)
2
Takes a directory line as returned by $gopher:get, and return a list
2
{host, port, selector, label}
2
host, port, and selector are what you send to :get.
2
label is a string, where the first character is the type code.
2
2
:type(char)
2
returns the name of the gopher type indicated by the character, e.g.
2
$gopher:type("I") => "image"
2
2
5
4
2
0
77150
0
743926430
2
1
#76
Generic Gendered Object
144
2
-1
-1
-1
1
37
35
2
set_gender
2
173
-1
@gen*der
2
105
12
11
gender
pqc
pq
ppc
pp
prc
pr
poc
po
psc
ps
15
2
neuter
2
5
2
its
2
5
2
its
2
5
2
Its
2
5
2
its
2
5
2
Itself
2
5
2
itself
2
5
2
It
2
5
2
it
2
5
2
It
2
5
2
it
2
5
0
0
2
4
4
1
2
Generic Gendered Object
2
5
5
2
5
4
2
0
2160
0
743668955
2
1
#77
The_Demolished_Man
7
77
109
167
-1
58
-1
154
1
who_all
77
9
-1
0
69
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
4
5
38
1
5
77
5
5
77
5
5
77
5
5
77
5
5
38
1
4
2
0
-1463919987
2
bill_enright@Red_Cloud.Orion
2
0
5
77
5
2
ORION
2
0
0
-1463835347
2
1
0
0
77
5
5
77
5
5
38
1
5
38
1
5
38
0
5
38
1
0
12434
77
5
4
13
1
77
1
157
1
155
1
166
1
167
1
327
1
329
1
334
1
335
1
339
1
338
1
340
1
341
2
1
5
38
1
1
77
77
4
4
6
2
bill_enright@Red_Cloud.Orion
2
Bill_Enright@Black_Buffalo_Woman.E.T._Phone_Home
2
Bill_Enright@Black_Buffalo_Woman.Orion
2
bill_enright@Mr._Coffee.Orion
2
Home'
2
'Orion'
2
0
2
bill_enright@Red_Cloud.Orion
2
0
5
77
5
4
0
77
4
5
77
5
5
77
4
5
77
4
5
77
5
2
ours
77
5
2
Ours
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
4
2
0
2
0
0
77
4
4
0
77
4
0
750802956
2
1
0
15
2
0
2
royal
77
5
2
Ourselves
77
5
2
Our
77
5
2
Us
77
5
2
We
77
5
2
ourselves
77
5
2
our
77
5
2
us
77
5
2
we
77
5
1
109
77
5
0
0
2
0
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
0
-1465213579
2
1
0
0
77
4
4
6
2
The_Demolished_Man
2
demolish
2
demolished
2
man
2
the_
2
Bill_Enright
2
1
4
2
2
Appears to be in a caffeine-induced trance. He wears a grey,
2
coffee-stained t-shirt that proclaims: APPLE RECYCLES EMPLOYEES.
77
5
4
2
0
0
0
0
2
1
#78
north
0
2
-1
-1
-1
7
-1
159
0
0
13
5
2
5
1
156
2
5
1
106
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#79
Dead_Meat
3
79
140
-1
-1
59
-1
-1
0
0
61
5
38
1
5
79
5
5
79
5
5
79
5
5
79
5
5
38
1
4
2
0
-1464450098
2
Jeff_Morris@Mighty_Mouse.Orion
2
0
5
79
5
2
ORION
2
0
0
-1464178110
2
1
0
0
79
5
5
79
5
5
38
1
5
38
1
5
38
0
5
38
1
5
79
5
4
1
1
79
2
1
5
38
1
1
79
79
4
4
4
2
Jeff_Morris@Mighty_Mouse.Orion
2
@Mighty_Mouse.Orion
2
Home'
2
'Orion'
2
0
2
Jeff_Morris@Mighty_Mouse.Orion
2
0
5
79
5
4
0
79
4
5
79
5
5
79
4
5
79
4
5
79
5
5
79
5
5
79
5
5
79
5
5
79
5
5
79
5
5
79
5
5
79
5
5
79
5
4
2
0
0
0
0
79
4
4
8
4
2
0
1
4
8
0
-1465139213
2
Wizard (#2)
2
LiverSpot (#147), The_Demolished_Man (#77), and Dead_Meat (#79)
2
Welcome to OrionMOO
2
2
feel free to look around, make new rooms, etc. We need somebody to build the
2
kitchen, conference rooms, etc
2
bob
4
2
0
2
4
9
0
-1465041578
2
Bob (#2)
2
Mark (#154), The_Demolished_Man (#77), Dead_Meat (#79), and LiverSpot (#147)
2
Moo maintence
2
2
Please explore the office, and let me know if there are any 'anomalies'.
2
If you feel like hacking, log on as 'builder' password builder.
2
2
bob
4
2
0
3
4
9
0
-1464639597
2
Bob (#2)
2
LiverSpot (#147), The_Demolished_Man (#77), Dead_Meat (#79), and Mark (#154)
2
new @join verb
2
2
I added a @join verb that works like the LambdaMoo one to the generic player, so
2
you should be able to use it. Let me know if it doesn't work.
2
2
b
4
2
0
4
4
9
0
-1464633150
2
Bob (#2)
2
Mark (#154), The_Demolished_Man (#77), LiverSpot (#147), and Dead_Meat (#79)
2
Passwords
2
2
I've waved my magic wand, and deleted all your passwords. The Crypt() function
2
I wrote was broken, and messed up things. Please don't repassword yourselves
2
until I restart the server.
2
b
4
2
0
5
4
7
0
-1464632431
2
Bob (#2)
2
The_Demolished_Man (#77), Mark (#154), LiverSpot (#147), and Dead_Meat (#79)
2
passwords
2
2
The crypt function is working again. you can add passwords again
2
b
4
2
0
6
4
10
0
-1464610415
2
Bob (#2)
2
LiverSpot (#147), The_Demolished_Man (#77), Mark (#154), and Dead_Meat (#79)
2
New way to log in
2
2
If you add an alias to your character that is equal to your PPC name, with spaces
2
replaced with underbars (ie, "Bob Monsen" -> "Bob_Monsen"), you will automatically
2
be logged in as yourself.
2
2
bob
4
2
0
7
4
7
0
-1464531151
2
Bob (#2)
2
Mark (#154), LiverSpot (#147), The_Demolished_Man (#77), and Dead_Meat (#79)
2
Bug found in the server
2
2
actually in my timer code... Its gonna be better now, I just know it!
2
b
4
2
0
8
4
6
0
-1464082045
2
Bob (#2)
2
*New-Prog-Log (#31) and Dead_Meat (#79)
2
@programmer Dead_Meat (#79)
2
2
I just gave Dead_Meat a programmer bit.
79
4
0
750802956
2
1
0
27
2
0
5
79
5
5
79
5
5
79
5
5
79
5
5
79
5
5
79
5
5
79
5
5
79
5
5
79
5
1
140
79
5
0
0
2
0
5
79
5
5
79
5
5
79
5
5
79
5
5
79
5
0
-1465143146
2
1
0
0
79
4
4
1
2
Dead_Meat
2
1
2
A putrid pile of meat, well past it;s expiration date. There are flies milling about, and parts of Dead_Meat appear to be moving, but you're wary of looking closer...
79
5
4
2
0
0
0
0
2
1
#80
d
0
2
-1
-1
-1
7
-1
81
0
0
13
5
2
5
1
11
2
5
1
82
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
d
2
down
2
5
5
2
5
4
2
0
0
0
0
2
1
#81
u
0
2
-1
-1
-1
7
-1
89
0
0
13
5
2
5
1
82
2
5
1
11
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
u
2
up
2
5
5
2
5
4
2
0
0
0
0
2
1
#82
Bob's Cube
0
2
-1
294
-1
3
-1
87
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
4
1
80
1
90
1
293
1
301
2
4
1
-1
2
5
0
14647
2
5
4
4
1
81
1
89
1
169
1
292
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Bob's Cube
2
5
2
There are computers everywhere, and papers and opened manuals are strewn on the desk. There is a window here.
2
5
4
2
0
0
0
0
2
1
#83
Guest
1
38
17
-1
-1
33
-1
84
0
0
60
5
38
1
4
1
2
By definition, guests appear nondescript.
38
1
5
2
0
5
38
5
5
38
1
4
2
0
750802956
2
Bob_Monsen@Hawksbill_Station.E.T._Phone_Home
2
0
5
38
5
5
2
0
0
750853387
2
1
0
0
38
5
5
38
5
5
38
1
5
38
1
5
38
0
5
38
1
5
38
5
5
2
1
5
38
1
5
38
4
4
16
2
foobar@apple.com
2
Bob_Monsen@Hawksbill_Station.E.T._Phone_Home
2
Guest@Sartre.Orion
2
LocalUser@LocalMachine.LocalZone
2
Guest@LiverSpot.E.T._Phone_Home
2
Bob_Monsen@Sartre.Orion
2
Guest@Spot.Orion
2
uest@murdock.Orion
2
uest@Spot.Orion
2
uest@Dalmation.Orion
2
@Hawksbill_Station.E.T._Phone_Home
2
@Black_Buffalo_Woman.E.T._Phone_Home
2
@Red_Cloud.Orion
2
@Mighty_Mouse.Orion
2
s_Macintosh.E.T._Phone_Home
2
@Kant.Orion
2
0
2
foobar@apple.com
2
0
5
38
5
4
0
38
4
5
38
5
5
38
4
5
38
4
5
38
5
2
its
38
5
2
Its
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
4
5
38
4
0
750853071
2
1
5
2
0
2
neuter
38
5
2
Itself
38
5
2
Its
38
5
2
It
38
5
2
It
38
5
2
itself
38
5
2
its
38
5
2
it
38
5
2
it
38
5
5
38
5
0
0
2
0
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
0
-1465203867
2
1
0
0
38
4
4
1
2
Guest
2
1
4
1
2
By definition, guests appear nondescript.
38
5
4
2
0
0
0
0
2
1
#84
Passionate_Guest
1
38
17
-1
83
33
-1
85
0
0
60
5
38
1
4
1
2
By definition, guests appear nondescript.
38
1
5
2
0
5
38
5
5
38
1
4
2
0
750802956
2
Bob_Monsen@Sartre.Orion
2
0
5
38
5
5
2
0
0
750853349
2
1
0
0
38
5
5
38
5
5
38
1
5
38
1
5
38
0
5
38
1
5
38
5
5
2
1
5
38
1
5
38
4
4
2
2
foobar@apple.com
2
Bob_Monsen@Sartre.Orion
2
0
2
foobar@apple.com
2
0
5
38
5
4
0
38
4
5
38
5
5
38
4
5
38
4
5
38
5
2
its
38
5
2
Its
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
4
5
38
4
0
750853123
2
1
5
2
0
2
neuter
38
5
2
Itself
38
5
2
Its
38
5
2
It
38
5
2
It
38
5
2
itself
38
5
2
its
38
5
2
it
38
5
2
it
38
5
5
38
5
0
0
2
0
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
0
-1464634411
2
1
0
0
38
4
4
2
2
Passionate_Guest
2
Passionate
2
1
4
1
2
By definition, guests appear nondescript.
38
5
4
2
0
0
0
0
2
1
#85
Ugly_Guest
1
38
17
-1
86
33
-1
86
0
0
60
5
38
1
4
1
2
By definition, guests appear nondescript.
38
1
5
2
0
5
38
5
5
38
1
4
2
0
750802956
2
Bob_Monsen@Sartre.Orion
2
0
5
38
5
5
2
0
0
750853344
2
1
0
0
38
5
5
38
5
5
38
1
5
38
1
5
38
0
5
38
1
5
38
5
5
2
1
5
38
1
5
38
4
4
2
2
foobar@apple.com
2
Bob_Monsen@Sartre.Orion
2
0
2
foobar@apple.com
2
0
5
38
5
4
0
38
4
5
38
5
5
38
4
5
38
4
5
38
5
2
its
38
5
2
Its
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
4
5
38
4
0
750853105
2
1
5
2
0
2
neuter
38
5
2
Itself
38
5
2
Its
38
5
2
It
38
5
2
It
38
5
2
itself
38
5
2
its
38
5
2
it
38
5
2
it
38
5
5
38
5
0
0
2
0
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
0
-1463586565
2
1
0
0
38
4
4
2
2
Ugly_Guest
2
Ugly
2
1
4
1
2
By definition, guests appear nondescript.
38
5
4
2
0
0
0
0
2
1
#86
Dusty_Guest
1
38
17
-1
84
33
-1
-1
0
0
60
5
38
1
4
1
2
By definition, guests appear nondescript.
38
1
5
2
0
5
38
5
5
38
1
4
2
0
750802956
2
Bob_Monsen@Sartre.Orion
2
0
5
38
5
5
2
0
0
750853346
2
1
0
0
38
5
5
38
5
5
38
1
5
38
1
5
38
0
5
38
1
5
38
5
5
2
1
5
38
1
5
38
4
4
3
2
foobar@apple.com
2
Bob_Monsen@Sartre.Orion
2
Bob_Monsen@Kant.Orion
2
0
2
foobar@apple.com
2
0
5
38
5
4
0
38
4
5
38
5
5
38
4
5
38
4
5
38
5
2
its
38
5
2
Its
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
5
38
4
5
38
4
0
750853113
2
1
5
2
0
2
neuter
38
5
2
Itself
38
5
2
Its
38
5
2
It
38
5
2
It
38
5
2
itself
38
5
2
its
38
5
2
it
38
5
2
it
38
5
5
38
5
0
0
2
0
5
38
5
5
38
5
5
38
5
5
38
5
5
38
5
0
-1465044140
2
1
0
0
38
4
4
2
2
Dusty_Guest
2
Dusty
2
1
4
1
2
By definition, guests appear nondescript.
38
5
4
2
0
0
0
0
2
1
#87
hallway near bob's cube
0
2
-1
-1
-1
3
-1
91
1
east
2
9
-1
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
3
1
89
1
93
1
231
2
4
1
-1
2
5
0
14691
2
5
4
3
1
90
1
92
1
230
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
hallway near bob's cube
2
5
2
You are in a north-south hallway. There is an opening to the east.
2
5
4
2
0
0
0
0
2
1
#88
a Profs manual
0
2
311
-1
-1
9
-1
283
0
0
15
5
2
5
5
2
4
4
1
2
The Professional Office System provides many useful features...
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
a Profs manual
2
manual
2
book
2
5
2
The PRofessional OFfice System
2
5
4
2
0
0
0
0
2
1
#89
west
0
2
-1
-1
-1
7
-1
90
0
0
13
5
2
5
1
82
2
5
1
87
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
4
2
west
2
out
2
exit
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#90
east
0
2
-1
-1
-1
7
-1
93
0
0
13
5
2
5
1
87
2
5
1
82
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
4
2
east
2
e
2
in
2
enter
2
5
5
2
5
4
2
0
0
0
0
2
1
#91
hallway turn
0
2
-1
-1
-1
3
-1
94
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
4
1
92
1
96
1
99
1
105
2
4
1
-1
2
5
0
5741
2
5
4
4
1
93
1
95
1
98
1
102
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
hallway turn
2
5
2
You are in the turn of a hallway from south to west. There is an opening to the east, and a doorway to the north. You smell candy.
2
5
4
2
0
0
0
0
2
1
#92
north
0
2
-1
-1
-1
7
-1
95
0
0
13
5
2
5
1
87
2
5
1
91
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#93
south
0
2
-1
-1
-1
7
-1
92
0
0
13
5
2
5
1
91
2
5
1
87
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#94
Betsy's Cube
0
2
-1
-1
-1
3
-1
97
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
95
2
4
1
-1
2
5
0
28964
2
5
4
1
1
96
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Betsy's Cube
2
5
2
You are in Betsy's cube. There is an exit to the west.
2
5
4
2
0
0
0
0
2
1
#95
east
0
2
-1
-1
-1
7
-1
96
0
0
13
5
2
5
1
91
2
5
1
94
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#96
west
0
2
-1
-1
-1
7
-1
98
0
0
13
5
2
5
1
94
2
5
1
91
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#97
Amy's Office
0
2
-1
-1
-1
3
-1
100
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
5
4
1
1
98
2
4
1
-1
2
5
0
30614
2
5
4
1
1
99
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Amy's Office
2
5
5
2
5
4
2
0
0
0
0
2
1
#98
north
0
2
-1
-1
-1
7
-1
99
0
0
13
5
2
5
1
91
2
5
1
97
2
5
2
The door is locked. You hear whispering behind it, but its too faint to make out...
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
1
2
2
4
4
2
2
north
2
n
2
5
2
You peer through the window. Amy is sitting with several men in ties. They look up.
2
5
4
2
0
0
0
0
2
1
#99
south
0
2
-1
-1
-1
7
-1
102
0
0
13
5
2
5
1
97
2
5
1
91
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#100
hallway near John's office
0
2
-1
-1
-1
3
-1
101
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
3
1
102
1
104
1
108
2
4
1
-1
2
5
0
29690
2
5
4
3
1
103
1
105
1
107
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
hallway near John's office
2
5
2
You are in a narrow east-west hallway. There is an office door leading north here.
2
5
4
2
0
0
0
0
2
1
#101
John's Office
0
2
-1
327
-1
3
-1
106
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
1
2
5
4
1
1
103
2
4
1
-1
2
5
0
24165
2
5
4
1
1
104
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
John's Office
2
5
2
John Robert's Office. You feel a sense of power emanating from the furniture and books here.
2
5
4
2
0
0
0
0
2
1
#102
west
0
2
-1
-1
-1
7
-1
103
0
0
13
5
2
5
1
91
2
5
1
100
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#103
north
0
2
-1
-1
-1
7
-1
104
0
0
13
5
2
5
1
100
2
5
1
101
2
5
2
"The door is locked. You hear manic laughter, interspersed with angry shouts..."
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
1
2
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#104
south
0
2
-1
-1
-1
7
-1
105
0
0
13
5
2
5
1
101
2
5
1
100
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#105
east
0
2
-1
-1
-1
7
-1
107
0
0
13
5
2
5
1
100
2
5
1
91
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#106
Hallway near Bill's Cube
0
2
-1
-1
-1
3
-1
109
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
4
1
107
1
111
1
114
1
78
2
4
1
-1
2
5
0
30016
2
5
4
4
1
108
1
110
1
113
1
146
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Hallway near Bill's Cube
2
5
2
You are in an east-west hallway. There is an opening to the north, and a passage leading south.
2
5
4
2
0
0
0
0
2
1
#107
west
0
2
-1
-1
-1
7
-1
108
0
0
13
5
2
5
1
100
2
5
1
106
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#108
east
0
2
-1
-1
-1
7
-1
110
0
0
13
5
2
5
1
106
2
5
1
100
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#109
Bill's Cube
0
2
-1
334
-1
3
-1
112
0
0
17
5
2
5
0
0
2
5
5
2
5
5
2
5
5
2
5
4
1
1
77
2
5
5
2
5
4
1
1
110
2
4
1
-1
2
5
0
7516
2
5
4
1
1
111
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Bill's Cube
2
5
2
It's really quite a mess. Inside Mac manuals are lost in piles of Radar bug reports and Apple Event documentation. Not as bad as Jeff's cube.
2
5
4
2
0
0
0
0
2
1
#110
north
0
2
-1
-1
-1
7
-1
111
0
0
13
5
2
5
1
106
2
5
1
109
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#111
south
0
2
-1
-1
-1
7
-1
113
0
0
13
5
2
5
1
109
2
5
1
106
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
south
2
s
2
out
2
5
5
2
5
4
2
0
0
0
0
2
1
#112
Hallway near David's cube
0
2
-1
-1
-1
3
-1
115
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
4
1
113
1
117
1
120
1
123
2
4
1
-1
2
5
0
16913
2
5
4
4
1
114
1
116
1
119
1
122
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Hallway near David's cube
2
5
2
You are in an east-west hallway. There are openings to the north and south. You smell burning insulation.
2
5
4
2
0
0
0
0
2
1
#113
west
0
2
-1
-1
-1
7
-1
114
0
0
13
5
2
5
1
106
2
5
1
112
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#114
east
0
2
-1
-1
-1
7
-1
116
0
0
13
5
2
5
1
112
2
5
1
106
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#115
Junk Cube
0
2
-1
310
-1
3
-1
118
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
116
2
4
1
-1
2
5
0
22871
2
5
4
1
1
117
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Junk Cube
2
5
2
There is all manner of junk piled about. Most of it is useless. There is an exit to the south.
2
5
4
2
0
0
0
0
2
1
#116
north
0
2
-1
-1
-1
7
-1
117
0
0
13
5
2
5
1
112
2
5
1
115
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#117
south
0
2
-1
-1
-1
7
-1
119
0
0
13
5
2
5
1
115
2
5
1
112
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#118
David's Cube
0
2
-1
-1
-1
3
-1
121
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
119
2
4
1
-1
2
5
0
18423
2
5
4
1
1
120
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
David's Cube
2
5
2
This is David Brown's cube. There is lots of junk here.
2
5
4
2
0
0
0
0
2
1
#119
south
0
2
-1
-1
-1
7
-1
120
0
0
13
5
2
5
1
112
2
5
1
118
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#120
north
0
2
-1
-1
-1
7
-1
122
0
0
13
5
2
5
1
118
2
5
1
112
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#121
Hallway near JL's cube
0
2
-1
-1
-1
3
-1
127
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
5
1
122
1
126
1
129
1
133
1
336
2
4
1
-1
2
5
0
14800
2
5
4
4
1
123
1
125
1
128
1
132
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Hallway near JL's cube
2
5
2
You are in an east-west hallway. There are openings to the north and south. you hear frantic typing...
2
5
4
2
0
0
0
0
2
1
#122
west
0
2
-1
-1
-1
7
-1
123
0
0
13
5
2
5
1
112
2
5
1
121
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#123
east
0
2
-1
-1
-1
7
-1
125
0
0
13
5
2
5
1
121
2
5
1
112
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#124
JL's Cube
0
147
-1
332
-1
3
-1
335
0
1
whiteboard
18
2
Test
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
4
2
1
147
1
346
147
5
5
147
5
4
0
147
4
1
-1
147
5
0
753
147
5
4
1
1
336
147
4
5
147
5
5
147
5
0
0
147
4
4
1
2
JL's Cube
147
5
2
Oddly, this office looks like a dog house.
147
5
4
2
0
0
0
0
2
1
#125
north
0
2
-1
-1
-1
7
-1
126
0
0
13
5
2
5
1
121
2
5
1
124
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#126
south
0
2
-1
-1
-1
7
-1
128
0
0
13
5
2
5
1
124
2
5
1
121
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#127
Bike Cube
0
2
-1
-1
-1
3
-1
131
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
128
2
4
1
-1
2
5
0
23212
2
5
4
1
1
129
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Bike Cube
2
5
5
2
5
4
2
0
0
0
0
2
1
#128
south
0
2
-1
-1
-1
7
-1
129
0
0
13
5
2
5
1
121
2
5
1
127
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#129
north
0
2
-1
-1
-1
7
-1
132
0
0
13
5
2
5
1
127
2
5
1
121
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#130
nothing
0
154
143
-1
154
5
-1
-1
0
0
12
5
154
5
5
154
5
5
154
5
5
154
5
5
154
5
5
154
5
5
154
5
5
154
5
0
0
154
4
4
1
2
nothing
154
5
5
154
5
4
2
0
0
0
0
2
1
#131
hallway near Bob's cube
0
2
-1
-1
-1
3
-1
134
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
4
1
132
1
136
1
139
1
184
2
4
1
-1
2
5
0
14340
2
5
4
4
1
133
1
135
1
138
1
183
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
hallway near Bob's cube
2
5
2
You are in an east-west hallway. There is an opening to the north, and a passage leading south.
2
5
4
2
0
0
0
0
2
1
#132
west
0
2
-1
-1
-1
7
-1
133
0
0
13
5
2
5
1
121
2
5
1
131
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#133
east
0
2
-1
-1
-1
7
-1
135
0
0
13
5
2
5
1
131
2
5
1
121
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#134
Bob Barnes' Cube
0
2
-1
-1
-1
3
-1
137
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
135
2
4
1
-1
2
5
0
16633
2
5
4
1
1
136
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Bob Barnes' Cube
2
5
2
You are in Bob Barnes cube. There is an exit to the south.
2
5
4
2
0
0
0
0
2
1
#135
north
0
2
-1
-1
-1
7
-1
136
0
0
13
5
2
5
1
131
2
5
1
134
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#136
south
0
2
-1
-1
-1
7
-1
138
0
0
13
5
2
5
1
134
2
5
1
131
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#137
hallway near Jeff's cube
0
2
-1
-1
-1
3
-1
140
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
4
1
138
1
142
1
150
1
227
2
4
1
-1
2
5
0
12182
2
5
4
4
1
139
1
141
1
149
1
226
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
hallway near Jeff's cube
2
5
2
you are in an east-west hallway. There are openings to the north and south.
2
5
4
2
0
0
0
0
2
1
#138
west
0
2
-1
-1
-1
7
-1
139
0
0
13
5
2
5
1
131
2
5
1
137
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#139
east
0
2
-1
-1
-1
7
-1
141
0
0
13
5
2
5
1
137
2
5
1
131
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#140
Jeff's Cube
0
2
-1
79
-1
3
-1
143
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
79
2
5
5
2
5
4
1
1
141
2
4
1
-1
2
5
0
12742
2
5
4
1
1
142
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Jeff's Cube
2
5
2
Someone has been cleaning up in here. You can actually see the blue carpeting in some spots. Sticky paper has been placed under the desk to catch unsuspecting rodents.
2
5
4
2
0
0
0
0
2
1
#141
north
0
2
-1
-1
-1
7
-1
142
0
0
13
5
2
5
1
137
2
5
1
140
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#142
south
0
2
-1
-1
-1
7
-1
149
0
0
13
5
2
5
1
140
2
5
1
137
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#143
Mark's Cube
0
2
-1
130
-1
3
-1
148
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
154
2
5
5
2
5
4
1
1
225
2
4
1
-1
2
5
0
14350
2
5
4
1
1
145
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Mark's Cube
2
5
4
1
2
An empty cubicle. There was someone here, but no more.
2
5
4
2
0
0
0
0
2
1
#144
Empty Cube
0
2
-1
-1
-1
3
-1
229
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
226
2
4
1
-1
2
5
0
6483
2
5
4
1
1
227
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Empty Cube
2
5
5
2
5
4
2
0
0
0
0
2
1
#145
north
0
2
-1
-1
-1
7
-1
226
0
0
13
5
2
5
1
143
2
5
1
148
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
north
2
n
2
out
2
5
5
2
5
4
2
0
0
0
0
2
1
#146
south
0
2
-1
-1
-1
7
-1
78
0
0
13
5
2
5
1
106
2
5
1
156
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#147
LiverSpot
7
147
124
307
-1
58
-1
-1
2
GetShelby
147
9
-1
eat
147
25
-1
0
69
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
4
5
38
1
5
147
5
5
147
5
5
147
5
5
147
5
5
38
1
4
2
0
750802956
2
John_Louch@Spot.Orion
2
0
5
147
5
2
ORION
2
0
0
750845953
2
1
0
0
147
5
5
147
5
4
2
0
15259
0
15259
38
1
0
0
38
1
4
68
2
@dump-d*atabase
2
@who-calls <anything>
2
mcd_2
2
@toad/@toad!/@toad!! <anything>
2
@untoad/@detoad <anything>
2
@quota <anything> is <anything>
2
@players <anything>
2
@grepcore/@egrepcore <anything>
2
@net-who/@@who <anything>
2
@make-player <anything>
2
@abort-sh*utdown <anything>
2
@newt <anything>
2
@unnewt/@denewt/@get-better <anything>
2
@register <anything>
2
@new-password/@newpassword <anything> is <anything>
If you have @pagelength set (see `help @pagelength') and some combination of events or commands produces sufficiently many lines of output, you will see a message of the form
2
2
*** More *** 37 lines left. Do @more [rest|flush] for more.
2
2
indicating (in this case) 37 more lines of text waiting to be read.
2
At this point, you should give one of the @more commands above.
2
2
@more without arguments prints sufficiently many lines to fill your screen,
2
assuming you've set @pagelength correctly, unless there are not that many
2
lines left to print.
2
2
@more rest will print all of the remaining lines, regardless of your @pagelength setting.
2
2
@more flush discards all remaining lines
2
I don't understand that.
2
I don't understand that.
38
0
0
0
38
1
0
7369
147
5
4
9
1
147
1
307
1
330
1
331
1
332
1
336
1
345
1
124
1
433
2
1
5
38
1
1
147
147
4
4
8
2
John_Louch@LiverSpot.E.T._Phone_Home
2
John_Louch@Spot.Orion
2
Bob_Monsen@Sartre.Orion
2
John_Louch@Sartre.Orion
2
John_Louch@murdock.Orion
2
uest@Red_Cloud.Orion
2
John_Louch@Dalmation.Orion
2
John_Louch@Red_Cloud.Orion
2
0
2
John_Louch@LiverSpot.E.T._Phone_Home
2
0
5
147
5
4
0
147
4
5
147
5
5
147
4
5
147
4
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
4
2
0
3
0
750804635
147
4
4
3
4
2
0
1
4
7
0
-1464115030
2
Bob (#2)
2
LiverSpot (#147)
2
Enhancement Request
2
2
Add a carrage return at the end of the text in programmers mode, if there
2
isn't already one
4
2
0
2
4
6
0
-1462982071
2
Bob (#2)
2
LiverSpot (#147)
2
foo
2
2
xxx
4
2
0
3
4
7
0
750804635
2
Bob (#2)
2
LiverSpot (#147)
2
TCP/IP!
2
2
Now, the client needs it...
2
(I'm typing this from apple.com)
147
4
0
750845852
2
1
0
19
2
0
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
1
124
147
5
0
0
2
0
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
0
-1465067603
2
1
0
0
147
4
4
2
2
LiverSpot
2
John_Louch
2
1
4
2
2
A liver spotted dalmation with soft brown ears, tan eyes, and an enormous pink tounge
2
He is lounging around on the floor.
147
5
4
2
0
0
0
0
2
1
#148
hallway near Steve's office
0
2
-1
-1
-1
3
-1
151
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
4
1
149
1
153
1
223
1
145
2
4
1
-1
2
5
0
17347
2
5
4
4
1
150
1
152
1
224
1
225
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
hallway near Steve's office
2
5
4
1
2
You are in an east-west hallway. There are openings to the north and south.
2
5
4
2
0
0
0
0
2
1
#149
west
0
2
-1
-1
-1
7
-1
150
0
0
13
5
2
5
1
137
2
5
1
148
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#150
east
0
2
-1
-1
-1
7
-1
152
0
0
13
5
2
5
1
148
2
5
1
137
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#151
Steve's Office
0
2
-1
326
-1
3
-1
156
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
152
2
4
1
-1
2
5
0
16842
2
5
4
1
1
153
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Steve's Office
2
5
2
This is Steve Berl's office. There is an opening to the south.
2
5
4
2
0
0
0
0
2
1
#152
north
0
2
-1
-1
-1
7
-1
153
0
0
13
5
2
5
1
148
2
5
1
151
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#153
south
0
2
-1
-1
-1
7
-1
146
0
0
13
5
2
5
1
151
2
5
1
148
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#154
Mark
7
154
143
-1
-1
58
-1
228
0
0
69
5
154
5
5
154
5
5
154
5
5
154
5
5
154
5
5
154
5
5
154
5
5
154
4
5
38
1
5
154
5
5
154
5
5
154
5
5
154
5
5
38
1
4
2
0
750802956
2
LocalUser@LocalMachine.LocalZone
2
0
5
154
5
2
Orion
2
0
0
750853352
2
1
0
0
154
5
5
154
5
5
38
1
5
38
1
5
38
0
5
38
1
0
13508
154
5
4
2
1
154
1
130
2
1
5
38
1
1
154
154
4
4
8
2
foobar@apple.com
2
LocalUser@LocalMachine.LocalZone
2
Mark_Pesce@Sense/Net.Orion
2
Bob_Monsen@Hawksbill_Station.E.T._Phone_Home
2
@Kant.Orion
2
Bob_Monsen@Sartre.Orion
2
Home'
2
'Orion'
2
0
2
foobar@apple.com
2
0
5
154
5
4
0
154
4
5
154
5
5
154
4
5
154
4
5
154
5
2
his
154
5
2
His
154
5
5
154
5
5
154
5
5
154
5
5
154
5
5
154
5
5
154
5
4
2
0
1
0
0
154
4
4
8
4
2
0
1
4
6
0
-1465129956
2
Wizard (#2)
2
*New-Prog-Log (#31) and Mark (#154)
2
@programmer Mark (#154)
2
2
I just gave Mark a programmer bit.
4
2
0
2
4
9
0
-1465041578
2
Bob (#2)
2
Mark (#154), The_Demolished_Man (#77), Dead_Meat (#79), and LiverSpot (#147)
2
Moo maintence
2
2
Please explore the office, and let me know if there are any 'anomalies'.
2
If you feel like hacking, log on as 'builder' password builder.
2
2
bob
4
2
0
3
4
9
0
-1464639597
2
Bob (#2)
2
LiverSpot (#147), The_Demolished_Man (#77), Dead_Meat (#79), and Mark (#154)
2
new @join verb
2
2
I added a @join verb that works like the LambdaMoo one to the generic player, so
2
you should be able to use it. Let me know if it doesn't work.
2
2
b
4
2
0
4
4
9
0
-1464633150
2
Bob (#2)
2
Mark (#154), The_Demolished_Man (#77), LiverSpot (#147), and Dead_Meat (#79)
2
Passwords
2
2
I've waved my magic wand, and deleted all your passwords. The Crypt() function
2
I wrote was broken, and messed up things. Please don't repassword yourselves
2
until I restart the server.
2
b
4
2
0
5
4
7
0
-1464632431
2
Bob (#2)
2
The_Demolished_Man (#77), Mark (#154), LiverSpot (#147), and Dead_Meat (#79)
2
passwords
2
2
The crypt function is working again. you can add passwords again
2
b
4
2
0
6
4
10
0
-1464610415
2
Bob (#2)
2
LiverSpot (#147), The_Demolished_Man (#77), Mark (#154), and Dead_Meat (#79)
2
New way to log in
2
2
If you add an alias to your character that is equal to your PPC name, with spaces
2
replaced with underbars (ie, "Bob Monsen" -> "Bob_Monsen"), you will automatically
2
be logged in as yourself.
2
2
bob
4
2
0
7
4
7
0
-1464531151
2
Bob (#2)
2
Mark (#154), LiverSpot (#147), The_Demolished_Man (#77), and Dead_Meat (#79)
2
Bug found in the server
2
2
actually in my timer code... Its gonna be better now, I just know it!
2
b
4
2
0
8
4
5
0
-1464245266
2
LiverSpot (#147)
2
Mark (#154)
2
say "where the hell have you been??
2
154
4
0
750853132
2
1
0
26
2
0
2
male
154
5
2
Himself
154
5
2
His
154
5
2
Him
154
5
2
He
154
5
2
himself
154
5
2
his
154
5
2
him
154
5
2
he
154
5
1
143
154
5
0
0
2
0
5
154
5
5
154
5
5
154
5
5
154
5
5
154
5
0
-1465130276
2
1
0
0
154
4
4
1
2
Mark
2
1
2
A tall man with no hair. OK, very little hair. Generally smiling, and often going off for a quick butt outside.
154
5
4
2
0
0
0
0
2
1
#155
Orion Bunny's Helmet
0
77
157
-1
-1
166
-1
-1
0
0
14
2
Rabbit
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
0
0
77
4
4
2
2
Orion Bunny's Helmet
2
Helmet
77
5
5
77
5
4
2
0
0
0
0
2
1
#156
bill's hall
0
2
-1
-1
-1
3
-1
158
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
2
1
146
1
160
2
4
1
-1
2
5
0
1402
2
5
4
2
1
78
1
159
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
bill's hall
2
5
2
You are in a north-south hallway.
2
5
4
2
0
0
0
0
2
1
#157
Orion Killer Guard Rabbit
0
77
77
155
-1
8
-1
164
0
0
31
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
0
1
2
1
0
1
2
1
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
0
0
2
1
5
77
4
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
0
0
77
4
4
3
2
Orion Killer Guard Rabbit
2
Rabbit
2
Bunny
77
5
2
This bunny is furred with Federal Express purple and orange. He has big, sad, plasticy eyes.
77
5
4
2
0
0
0
0
2
1
#158
Main Hallway
0
2
-1
-1
-1
3
-1
161
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
3
1
159
1
163
1
268
2
4
1
-1
2
5
0
9680
2
5
4
3
1
160
1
162
1
173
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Main Hallway
2
5
2
You are in a north-south hallway. There is another hallway here leading west.
2
5
4
2
0
0
0
0
2
1
#159
south
0
2
-1
-1
-1
7
-1
160
0
0
13
5
2
5
1
156
2
5
1
158
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#160
north
0
2
-1
-1
-1
7
-1
162
0
0
13
5
2
5
1
158
2
5
1
156
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#161
first aid hallway
0
2
-1
164
-1
3
-1
168
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
3
1
162
1
280
1
286
2
4
1
-1
2
5
0
341
2
5
4
3
1
163
1
279
1
285
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
first aid hallway
2
5
2
You are in a north-south hallway. There is a door to the east.
2
5
4
2
0
0
0
0
2
1
#162
south
0
2
-1
-1
-1
7
-1
163
0
0
13
5
2
5
1
158
2
5
1
161
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#163
north
0
2
-1
-1
-1
7
-1
169
0
0
13
5
2
5
1
161
2
5
1
158
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#164
the Laserwriter
0
2
161
165
-1
8
341
167
1
close
2
41
-1
0
31
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
0
1
2
1
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
1
5
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
the Laserwriter
2
printer
2
laserwriter
2
5
2
a laserwriter
2
5
4
2
0
0
0
0
2
1
#165
toner
0
2
164
-1
171
5
-1
166
0
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
1
2
toner
2
5
5
2
5
4
2
0
0
0
0
2
1
#166
Orion Safety Helmet
0
77
77
-1
331
5
155
171
2
g*et t*ake
77
41
-1
label
77
105
0
2
label
tile_fell_on_it
14
2
Your Name Here
77
5
0
0
77
5
2
You can't drop %t here. You probably don't want to anyway -- wouldn't you really rather hang on to it?
77
5
2
You feel exposed and naked without a certified %t.
77
5
2
starts to drop %t but reconsiders the safety implications.
77
5
2
removes %t with a flourish. A very reckless thing to do...
77
5
2
"You feel much better, much safer with a genuine Orion Safety Helmet."
77
5
5
77
5
2
You feel much better, much safer with an approved %t.
77
5
2
You can't have this %t. Keep your head covered!
77
5
0
0
77
4
4
2
2
Orion Safety Helmet
2
Helmet
77
5
4
3
2
A standard-issue Orion Safety Helmet is made of clean, shiny, white plastic.
2
It is not likely to save your life should anything heavy fall on your head,
2
but it would probably protect you from falling acoustic tiles.
77
5
4
2
0
0
0
0
2
1
#167
Generic Apple Recycle-able Employee
0
77
77
-1
166
8
-1
170
2
layoff
77
105
0
layoff
77
9
-1
0
31
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
2
1
5
2
1
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
2
1
5
77
4
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
0
0
77
4
4
1
2
Generic Apple Recycle-able Employee
77
5
5
77
5
4
2
0
0
0
0
2
1
#168
Hell
0
2
-1
433
-1
3
-1
172
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
3
1
169
1
278
1
298
2
4
1
-1
2
5
0
24814
2
5
4
1
1
301
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Hell
2
5
2
You are in hell. The flames of perdition burn all around you.
2
5
4
2
0
0
0
0
2
1
#169
die
0
2
-1
-1
-1
7
-1
176
0
0
13
5
2
5
1
82
2
5
1
168
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
1
2
die
2
5
5
2
5
4
2
0
0
0
0
2
1
#170
an air conditioner
0
2
11
-1
-1
8
-1
178
1
enter
2
41
-1
0
31
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
5
2
1
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
5
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
an air conditioner
2
air conditioner
2
conditioner
2
5
5
2
5
4
2
0
0
0
0
2
1
#171
paper
0
2
164
-1
-1
5
-1
179
0
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
1
2
paper
2
5
5
2
5
4
2
0
0
0
0
2
1
#172
xerox room hallway
0
2
-1
-1
-1
3
-1
175
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
3
1
177
1
182
1
269
2
4
1
-1
2
5
0
17251
2
5
4
3
1
176
1
181
1
174
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
xerox room hallway
2
5
2
You are in an east-west hallway. To the south is a xerox room.
2
5
4
2
0
0
0
0
2
1
#173
west
0
2
-1
-1
-1
7
-1
269
0
0
13
5
2
5
1
158
2
5
1
267
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#174
east
0
228
-1
-1
-1
7
-1
268
0
0
13
5
228
5
1
172
228
5
1
267
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#175
Xerox Room
0
2
-1
178
-1
3
-1
180
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
176
2
4
1
-1
2
5
0
10029
2
5
4
1
1
177
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Xerox Room
2
5
2
You are in the xerox room. There is an exit to the north.
2
5
4
2
0
0
0
0
2
1
#176
south
0
2
-1
-1
-1
7
-1
177
0
0
13
5
2
5
1
172
2
5
1
175
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#177
north
0
2
-1
-1
-1
7
-1
181
0
0
13
5
2
5
1
175
2
5
1
172
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#178
the xerox machine
0
2
175
-1
179
8
-1
265
2
copy
2
153
4
copy
2
153
0
0
31
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
5
2
1
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
5
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
the xerox machine
2
copier
2
xerox machine
2
5
5
2
5
4
2
0
0
0
0
2
1
#179
the telephone
0
2
175
-1
-1
5
-1
289
1
dial
2
105
0
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
the telephone
2
telephone
2
phone
2
5
5
2
5
4
2
0
0
0
0
2
1
#180
Tee Hallway
0
2
-1
-1
-1
3
-1
185
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
4
1
181
1
183
1
187
1
190
2
4
1
-1
2
5
0
11286
2
5
4
4
1
182
1
184
1
186
1
189
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Tee Hallway
2
5
2
You are in an east-west hallway. There is another hall leading north, and a conference room to the south.
2
5
4
2
0
0
0
0
2
1
#181
west
0
2
-1
-1
-1
7
-1
182
0
0
13
5
2
5
1
172
2
5
1
180
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#182
east
0
2
-1
-1
-1
7
-1
183
0
0
13
5
2
5
1
180
2
5
1
172
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#183
south
0
2
-1
-1
-1
7
-1
184
0
0
13
5
2
5
1
131
2
5
1
180
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#184
north
0
2
-1
-1
-1
7
-1
186
0
0
13
5
2
5
1
180
2
5
1
131
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#185
Conference Room
0
2
-1
-1
-1
3
-1
188
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
186
2
4
1
-1
2
5
0
9700
2
5
4
1
1
187
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Conference Room
2
5
2
You are in the Southern Cross conference room. There is an exit to the north.
2
5
4
2
0
0
0
0
2
1
#186
south
0
2
-1
-1
-1
7
-1
187
0
0
13
5
2
5
1
180
2
5
1
185
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#187
north
0
2
-1
-1
-1
7
-1
189
0
0
13
5
2
5
1
185
2
5
1
180
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#188
window hallway
0
2
-1
-1
-1
3
-1
191
1
look
2
89
-2
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
2
1
189
1
193
2
4
1
-1
2
5
0
31551
2
5
4
2
1
190
1
192
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
window hallway
2
5
2
You are in an east-west hallway. There is a large window looking in on the Southern Cross conference room.
2
5
4
2
0
0
0
0
2
1
#189
west
0
2
-1
-1
-1
7
-1
190
0
0
13
5
2
5
1
180
2
5
1
188
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#190
east
0
2
-1
-1
-1
7
-1
192
0
0
13
5
2
5
1
188
2
5
1
180
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#191
kitchen-hallway
0
2
-1
-1
-1
3
-1
194
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
3
1
192
1
196
1
202
2
4
1
-1
2
5
0
17642
2
5
4
3
1
193
1
195
1
201
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
kitchen-hallway
2
5
2
You are in an east-west hallway. There is an exit to the south.
2
5
4
2
0
0
0
0
2
1
#192
west
0
2
-1
-1
-1
7
-1
193
0
0
13
5
2
5
1
188
2
5
1
191
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#193
east
0
2
-1
-1
-1
7
-1
195
0
0
13
5
2
5
1
191
2
5
1
188
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#194
Kitchen
0
2
-1
316
-1
3
-1
197
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
2
1
195
1
199
2
4
1
-1
2
5
0
23263
2
5
4
2
1
196
1
198
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Kitchen
2
5
2
You are in the kitchen. There are exits to the west and north.
2
5
4
2
0
0
0
0
2
1
#195
south
0
2
-1
-1
-1
7
-1
196
0
0
13
5
2
5
1
191
2
5
1
194
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#196
north
0
2
-1
-1
-1
7
-1
198
0
0
13
5
2
5
1
194
2
5
1
191
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#197
Dining Area
0
2
-1
318
-1
3
-1
200
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
2
1
198
1
204
2
4
1
-1
2
5
0
4526
2
5
4
2
1
199
1
203
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Dining Area
2
5
2
You are in the dining area. There are exists to the east and northwest.
2
5
4
2
0
0
0
0
2
1
#198
west
0
2
-1
-1
-1
7
-1
199
0
0
13
5
2
5
1
194
2
5
1
197
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#199
east
0
2
-1
-1
-1
7
-1
201
0
0
13
5
2
5
1
197
2
5
1
194
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#200
hallway near Mark Farlin's cube
0
2
-1
-1
-1
3
-1
205
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
5
1
201
1
203
1
207
1
210
1
277
2
4
1
-1
2
5
0
6112
2
5
4
5
1
202
1
204
1
206
1
209
1
276
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
hallway near Mark Farlin's cube
2
5
2
You are in a north-south hallway. Another hallway leads east, and there are doorways to the southeast and west.
2
5
4
2
0
0
0
0
2
1
#201
west
0
2
-1
-1
-1
7
-1
202
0
0
13
5
2
5
1
191
2
5
1
200
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#202
east
0
2
-1
-1
-1
7
-1
203
0
0
13
5
2
5
1
200
2
5
1
191
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#203
northwest
0
2
-1
-1
-1
7
-1
204
0
0
13
5
2
5
1
197
2
5
1
200
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
northwest
2
nw
2
5
5
2
5
4
2
0
0
0
0
2
1
#204
southeast
0
2
-1
-1
-1
7
-1
206
0
0
13
5
2
5
1
200
2
5
1
197
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
southeast
2
se
2
5
5
2
5
4
2
0
0
0
0
2
1
#205
Mark Farlin's Cube
0
2
-1
-1
-1
3
-1
208
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
206
2
4
1
-1
2
5
0
11986
2
5
4
1
1
207
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Mark Farlin's Cube
2
5
2
There are lots of lonely computers here, all running after dark. There is dust on the furniture.
2
5
4
2
0
0
0
0
2
1
#206
west
0
2
-1
-1
-1
7
-1
207
0
0
13
5
2
5
1
200
2
5
1
205
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#207
east
0
2
-1
-1
-1
7
-1
209
0
0
13
5
2
5
1
205
2
5
1
200
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
east
2
e
2
out
2
5
5
2
5
4
2
0
0
0
0
2
1
#208
library hallway
0
2
-1
-1
-1
3
-1
211
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
3
1
209
1
213
1
216
2
4
1
-1
2
5
0
28532
2
5
4
3
1
210
1
212
1
215
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
library hallway
2
5
2
You are at the corner of two hallways which run east and south. There is a door to the west.
2
5
4
2
0
0
0
0
2
1
#209
north
0
2
-1
-1
-1
7
-1
210
0
0
13
5
2
5
1
200
2
5
1
208
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#210
south
0
2
-1
-1
-1
7
-1
212
0
0
13
5
2
5
1
208
2
5
1
200
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#211
Library
0
2
-1
311
-1
3
-1
214
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
212
2
4
1
-1
2
5
0
28698
2
5
4
1
1
213
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Library
2
5
2
You are in the Orion library. There are lots of out-of-date publications here.
2
5
4
2
0
0
0
0
2
1
#212
west
0
2
-1
-1
-1
7
-1
213
0
0
13
5
2
5
1
208
2
5
1
211
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#213
east
0
2
-1
-1
-1
7
-1
215
0
0
13
5
2
5
1
211
2
5
1
208
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
east
2
e
2
out
2
5
5
2
5
4
2
0
0
0
0
2
1
#214
hallway near Tony's office
0
2
-1
-1
-1
3
-1
217
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
4
1
215
1
219
1
222
1
224
2
4
1
-1
2
5
0
13181
2
5
4
4
1
216
1
218
1
221
1
223
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
hallway near Tony's office
2
5
2
You are in an east-west corridor. There are openings to the north and south.
2
5
4
2
0
0
0
0
2
1
#215
east
0
2
-1
-1
-1
7
-1
216
0
0
13
5
2
5
1
208
2
5
1
214
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#216
west
0
2
-1
-1
-1
7
-1
218
0
0
13
5
2
5
1
214
2
5
1
208
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#217
Tony's Office
0
2
-1
-1
-1
3
-1
220
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
218
2
4
1
-1
2
5
0
19660
2
5
4
1
1
219
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Tony's Office
2
5
2
You are in Tony Godino's office. Tony isn't here...
2
5
4
2
0
0
0
0
2
1
#218
north
0
2
-1
-1
-1
7
-1
219
0
0
13
5
2
5
1
214
2
5
1
217
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#219
south
0
2
-1
-1
-1
7
-1
221
0
0
13
5
2
5
1
217
2
5
1
214
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#220
Tools Cube
0
2
-1
-1
-1
3
-1
144
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
221
2
4
1
-1
2
5
0
12123
2
5
4
1
1
222
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Tools Cube
2
5
5
2
5
4
2
0
0
0
0
2
1
#221
south
0
2
-1
-1
-1
7
-1
222
0
0
13
5
2
5
1
214
2
5
1
220
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#222
north
0
2
-1
-1
-1
7
-1
223
0
0
13
5
2
5
1
220
2
5
1
214
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#223
east
0
2
-1
-1
-1
7
-1
224
0
0
13
5
2
5
1
214
2
5
1
148
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
east
2
e
2
5
5
2
5
4
2
0
0
0
0
2
1
#224
west
0
2
-1
-1
-1
7
-1
225
0
0
13
5
2
5
1
148
2
5
1
214
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#225
south
0
2
-1
-1
-1
7
-1
145
0
0
13
5
2
5
1
148
2
5
1
143
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#226
south
0
2
-1
-1
-1
7
-1
227
0
0
13
5
2
5
1
137
2
5
1
144
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#227
north
0
2
-1
-1
-1
7
-1
230
0
0
13
5
2
5
1
144
2
5
1
137
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
north
2
n
2
out
2
5
5
2
5
4
2
0
0
0
0
2
1
#228
builder
7
228
17
-1
85
58
-1
147
0
0
69
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
4
5
38
1
5
228
5
5
228
5
5
228
5
5
228
5
5
38
1
4
2
0
-1464684526
2
s_Macintosh.E.T._Phone_Home
2
0
5
228
5
2
any.orion
2
0
0
-1463731235
2
1
0
0
228
5
5
228
5
5
38
1
5
38
1
5
38
0
5
38
1
5
228
5
4
132
1
228
1
231
1
232
1
233
1
234
1
235
1
236
1
237
1
238
1
239
1
240
1
241
1
242
1
243
1
244
1
245
1
246
1
247
1
248
1
249
1
250
1
251
1
252
1
253
1
254
1
255
1
256
1
257
1
258
1
259
1
260
1
261
1
262
1
263
1
264
1
267
1
174
1
268
1
270
1
271
1
272
1
273
1
274
1
275
1
276
1
277
1
278
1
266
1
279
1
280
1
281
1
282
1
265
1
283
1
284
1
285
1
286
1
287
1
288
1
289
1
290
1
299
1
300
1
354
1
355
1
356
1
357
1
358
1
359
1
360
1
361
1
362
1
363
1
364
1
365
1
366
1
367
1
368
1
369
1
370
1
371
1
372
1
373
1
374
1
375
1
376
1
377
1
378
1
379
1
380
1
381
1
382
1
383
1
384
1
385
1
386
1
387
1
388
1
389
1
390
1
391
1
392
1
393
1
394
1
395
1
396
1
397
1
398
1
399
1
400
1
401
1
402
1
403
1
404
1
405
1
406
1
407
1
408
1
409
1
410
1
411
1
412
1
413
1
414
1
415
1
416
1
417
1
418
1
419
1
420
1
421
1
422
2
1
5
38
1
1
228
228
4
4
3
2
Bob_Monsen@Hawksbill_Station.E.T._Phone_Home
2
s_Macintosh.E.T._Phone_Home
2
Bob_Monsen@Sartre.Orion
2
0
2
Bob_Monsen@Hawksbill_Station.E.T._Phone_Home
2
0
5
228
5
4
0
228
4
5
228
5
5
228
4
5
228
4
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
2
0
0
0
0
228
4
4
1
4
2
0
1
4
6
0
-1464698968
2
Bob (#2)
2
*New-Prog-Log (#31) and builder (#228)
2
@programmer builder (#228)
2
2
I just gave builder a programmer bit.
228
4
0
750802956
2
1
0
96
2
0
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
2
0
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
-1465041530
2
1
0
0
228
4
4
1
2
builder
2
1
5
228
5
4
2
0
0
0
0
2
1
#229
hallway near Susan's Cube
0
2
-1
-1
-1
3
-1
232
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
4
1
230
1
234
1
237
1
287
2
4
1
-1
2
5
0
14008
2
5
4
4
1
231
1
233
1
236
1
288
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
hallway near Susan's Cube
2
5
2
You are in a north-south hallway. There is an opening towards the east.
2
5
4
2
0
0
0
0
2
1
#230
south
0
2
-1
-1
-1
7
-1
231
0
0
13
5
2
5
1
87
2
5
1
229
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#231
north
0
228
-1
-1
-1
7
-1
233
0
0
13
5
228
5
1
229
228
5
1
87
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#232
Susan's Cube
0
228
-1
-1
-1
3
-1
235
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
233
228
4
1
-1
228
5
0
6242
228
5
4
1
1
234
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Susan's Cube
228
5
5
228
5
4
2
0
0
0
0
2
1
#233
east
0
228
-1
-1
-1
7
-1
234
0
0
13
5
228
5
1
229
228
5
1
232
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
east
2
e
2
in
228
5
5
228
5
4
2
0
0
0
0
2
1
#234
west
0
228
-1
-1
-1
7
-1
236
0
0
13
5
228
5
1
232
228
5
1
229
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
west
2
w
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#235
hallway near Paul's cube
0
228
-1
-1
-1
3
-1
238
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
3
1
236
1
240
1
243
228
4
1
-1
228
5
0
14008
228
5
4
3
1
237
1
239
1
242
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
hallway near Paul's cube
228
5
2
You are in a north-south hallway. There is an opening towards the east.
228
5
4
2
0
0
0
0
2
1
#236
south
0
228
-1
-1
-1
7
-1
237
0
0
13
5
228
5
1
229
228
5
1
235
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#237
north
0
228
-1
-1
-1
7
-1
239
0
0
13
5
228
5
1
235
228
5
1
229
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#238
Paul's Cube
0
228
-1
-1
-1
3
-1
241
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
239
228
4
1
-1
228
5
0
32636
228
5
4
1
1
240
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Paul's Cube
228
5
5
228
5
4
2
0
0
0
0
2
1
#239
east
0
228
-1
-1
-1
7
-1
240
0
0
13
5
228
5
1
235
228
5
1
238
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
east
2
e
2
in
228
5
5
228
5
4
2
0
0
0
0
2
1
#240
west
0
228
-1
-1
-1
7
-1
242
0
0
13
5
228
5
1
238
228
5
1
235
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
west
2
w
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#241
hallway near Dirk's cube
0
228
-1
-1
-1
3
-1
244
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
4
1
242
1
246
1
249
1
252
228
4
1
-1
228
5
0
14008
228
5
4
4
1
243
1
245
1
248
1
251
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
hallway near Dirk's cube
228
5
2
You are at the corner of two hallways heading north and west. There is an opening to the east, and a door to the south.
228
5
4
2
0
0
0
0
2
1
#242
south
0
228
-1
-1
-1
7
-1
243
0
0
13
5
228
5
1
235
228
5
1
241
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#243
north
0
228
-1
-1
-1
7
-1
245
0
0
13
5
228
5
1
241
228
5
1
235
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#244
Dirk's Cube
0
228
-1
-1
-1
3
-1
247
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
245
228
4
1
-1
228
5
0
26890
228
5
4
1
1
246
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Dirk's Cube
228
5
5
228
5
4
2
0
0
0
0
2
1
#245
east
0
228
-1
-1
-1
7
-1
246
0
0
13
5
228
5
1
241
228
5
1
244
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#246
west
0
228
-1
-1
-1
7
-1
248
0
0
13
5
228
5
1
244
228
5
1
241
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
west
2
w
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#247
Karen's Office
0
228
-1
342
-1
3
-1
250
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
248
228
4
1
-1
228
5
0
25406
228
5
4
1
1
249
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Karen's Office
228
5
2
You are in Karen Chan's office. There is a doorway to the north.
228
5
4
2
0
0
0
0
2
1
#248
south
0
228
-1
-1
-1
7
-1
249
0
0
13
5
228
5
1
241
228
5
1
247
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#249
north
0
228
-1
-1
-1
7
-1
251
0
0
13
5
228
5
1
247
228
5
1
241
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
north
2
n
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#250
hallway near Barb's cube
0
228
-1
-1
-1
3
-1
253
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
3
1
251
1
255
1
258
228
4
1
-1
228
5
0
14008
228
5
4
3
1
252
1
254
1
257
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
hallway near Barb's cube
228
5
2
You are in an east-west hallway. There is an opening to the south.
228
5
4
2
0
0
0
0
2
1
#251
west
0
228
-1
-1
-1
7
-1
252
0
0
13
5
228
5
1
241
228
5
1
250
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
west
2
w
228
5
5
228
5
4
2
0
0
0
0
2
1
#252
east
0
228
-1
-1
-1
7
-1
254
0
0
13
5
228
5
1
250
228
5
1
241
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#253
Barb Nolley's Cube
0
228
-1
-1
-1
3
-1
256
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
254
228
4
1
-1
228
5
0
7908
228
5
4
1
1
255
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Barb Nolley's Cube
228
5
5
228
5
4
2
0
0
0
0
2
1
#254
south
0
228
-1
-1
-1
7
-1
255
0
0
13
5
228
5
1
250
228
5
1
253
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#255
north
0
228
-1
-1
-1
7
-1
257
0
0
13
5
228
5
1
253
228
5
1
250
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#256
hallway near KanjiCube
0
228
-1
-1
-1
3
-1
259
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
3
1
257
1
261
1
264
228
4
1
-1
228
5
0
14008
228
5
4
3
1
258
1
260
1
263
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
hallway near KanjiCube
228
5
2
You are in an east-west hallway. You suddenly want some tea.
228
5
4
2
0
0
0
0
2
1
#257
west
0
228
-1
-1
-1
7
-1
258
0
0
13
5
228
5
1
250
228
5
1
256
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
west
2
w
228
5
5
228
5
4
2
0
0
0
0
2
1
#258
east
0
228
-1
-1
-1
7
-1
260
0
0
13
5
228
5
1
256
228
5
1
250
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#259
KanjiCube
0
228
-1
-1
-1
3
-1
262
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
260
228
4
1
-1
228
5
0
5258
228
5
4
1
1
261
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
KanjiCube
228
5
5
228
5
4
2
0
0
0
0
2
1
#260
south
0
228
-1
-1
-1
7
-1
261
0
0
13
5
228
5
1
256
228
5
1
259
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#261
north
0
228
-1
-1
-1
7
-1
263
0
0
13
5
228
5
1
259
228
5
1
256
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
north
2
n
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#262
lab hallway east
0
228
-1
-1
-1
3
-1
267
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
4
1
263
1
274
1
281
1
297
228
4
1
-1
228
5
0
26310
228
5
4
4
1
264
1
272
1
282
1
296
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
lab hallway east
228
5
2
You are at the point is a north-south. There is another hallway leading east, and a door to the west.
228
5
4
2
0
0
0
0
2
1
#263
west
0
228
-1
-1
-1
7
-1
264
0
0
13
5
228
5
1
256
228
5
1
262
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
west
2
w
228
5
5
228
5
4
2
0
0
0
0
2
1
#264
east
0
228
-1
-1
-1
7
-1
174
0
0
13
5
228
5
1
262
228
5
1
256
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#265
Bob's Mailbox
0
228
266
-1
-1
8
-1
299
1
g*et t*ake
2
41
-1
0
31
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
2
1
0
0
2
1
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
1
2
1
5
228
4
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
Bob's Mailbox
2
mailbox
2
box
228
5
2
Bob Monsen's Mailbox
228
5
4
2
0
0
0
0
2
1
#266
hallway near mailboxes
0
228
-1
265
-1
3
-1
284
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
2
1
279
1
282
228
4
1
-1
228
5
0
4758
228
5
4
2
1
280
1
281
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
hallway near mailboxes
228
5
2
You are in a north-south hallway.
228
5
4
2
0
0
0
0
2
1
#267
lab hallway north
0
228
-1
-1
-1
3
-1
270
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
3
1
174
1
173
1
273
228
4
1
-1
228
5
0
11616
228
5
4
3
1
268
1
269
1
271
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
lab hallway north
228
5
2
You are in an east-west hallway. There is an exit to the south. You hear the whirring of machines.
228
5
4
2
0
0
0
0
2
1
#268
east
0
228
-1
-1
-1
7
-1
173
0
0
13
5
228
5
1
267
228
5
1
158
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#269
west
0
2
-1
-1
-1
7
-1
271
0
0
13
5
2
5
1
267
2
5
1
172
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#270
Lab
0
228
-1
308
-1
3
-1
275
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
2
1
271
1
272
228
4
1
-1
228
5
0
8706
228
5
4
2
1
273
1
274
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Lab
228
5
2
You are in a computer lab. There are old, outdated machines everywhere. The fans are loud and obnoxious.
228
5
4
2
0
0
0
0
2
1
#271
south
0
228
-1
-1
-1
7
-1
272
0
0
13
5
228
5
1
267
228
5
1
270
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#272
west
0
228
-1
-1
-1
7
-1
273
0
0
13
5
228
5
1
262
228
5
1
270
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
west
2
w
228
5
5
228
5
4
2
0
0
0
0
2
1
#273
north
0
228
-1
-1
-1
7
-1
274
0
0
13
5
228
5
1
270
228
5
1
267
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#274
east
0
228
-1
-1
-1
7
-1
276
0
0
13
5
228
5
1
270
228
5
1
262
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#275
main entrance
0
228
-1
-1
-1
3
-1
266
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
276
228
4
1
-1
228
5
0
22022
228
5
4
2
1
277
1
278
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
main entrance
228
5
2
You are in the main entryway to orion network systems. There are boxes and old terminals stacked here.
228
5
4
2
0
0
0
0
2
1
#276
south
0
228
-1
-1
-1
7
-1
277
0
0
13
5
228
5
1
200
228
5
1
275
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#277
north
0
228
-1
-1
-1
7
-1
278
0
0
13
5
228
5
1
275
228
5
1
200
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#278
south
0
228
-1
-1
-1
7
-1
279
0
0
13
5
228
5
1
275
228
5
1
168
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
2
You suddenly realize that its Hell out there...
228
5
0
0
228
4
4
2
2
south
2
s
228
5
2
You look at the door. Its unlocked, and waiting for you. You smell sulphur...
228
5
4
2
0
0
0
0
2
1
#279
south
0
228
-1
-1
-1
7
-1
280
0
0
13
5
228
5
1
161
228
5
1
266
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#280
north
0
228
-1
-1
-1
7
-1
281
0
0
13
5
228
5
1
266
228
5
1
161
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#281
south
0
228
-1
-1
-1
7
-1
282
0
0
13
5
228
5
1
266
228
5
1
262
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#282
north
0
228
-1
-1
-1
7
-1
285
0
0
13
5
228
5
1
262
228
5
1
266
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#283
Pink Slip
0
228
2
-1
333
9
-1
305
0
0
15
5
228
5
5
228
4
4
7
2
Apple Computer regrets that we must terminate your
2
employment, effective immediately. You have 60 days
2
with which to find another job, at which time you will
2
be booted from the premises. Thanks for your
2
contribution to Apple Computer, and we hope there
2
are no hard feelings.
2
Your friend, Michael Spindler.
228
4
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
Pink Slip
2
slip
2
note
228
5
5
228
5
4
2
0
0
0
0
2
1
#284
Videoconference Room
0
228
-1
289
-1
3
-1
291
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
2
1
285
1
288
228
4
1
-1
228
5
0
24751
228
5
4
2
1
286
1
287
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Videoconference Room
228
5
2
You are in the Orion videoconference room. There are exits to the east and west.
228
5
4
2
0
0
0
0
2
1
#285
east
0
228
-1
-1
-1
7
-1
286
0
0
13
5
228
5
1
161
228
5
1
284
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#286
west
0
228
-1
-1
-1
7
-1
287
0
0
13
5
228
5
1
284
228
5
1
161
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
west
2
w
228
5
5
228
5
4
2
0
0
0
0
2
1
#287
east
0
228
-1
-1
-1
7
-1
288
0
0
13
5
228
5
1
284
228
5
1
229
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#288
west
0
228
-1
-1
-1
7
-1
292
0
0
13
5
228
5
1
229
228
5
1
284
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
west
2
w
228
5
5
228
5
4
2
0
0
0
0
2
1
#289
the desk
0
228
284
-1
290
5
-1
290
1
sit
228
137
1
1
seated
13
4
0
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
the desk
2
a desk
2
desk
228
5
2
The desk is wooden, with a blond color. It is massive, seating perhaps 20 people.
228
5
4
2
0
0
0
0
2
1
#290
a console
0
228
284
-1
-1
5
-1
294
0
0
12
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
a console
2
console
2
the console
228
5
2
You are looking at the videoconference room's control console. You are baffled by the buttons and switches.
228
5
4
2
0
0
0
0
2
1
#291
a Quadra 950
0
2
-1
306
-1
3
-1
295
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
292
2
4
1
-1
2
5
0
7790
2
5
4
1
1
293
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
a Quadra 950
2
5
2
You are in Bob's computer. There is a loud whirring here.
2
5
4
2
0
0
0
0
2
1
#292
enter
0
2
-1
-1
-1
7
-1
293
0
0
13
5
2
5
1
82
2
5
1
291
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
enter
2
in
2
5
5
2
5
4
2
0
0
0
0
2
1
#293
out
0
2
-1
-1
-1
7
-1
296
0
0
13
5
2
5
1
291
2
5
1
82
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
out
2
exit
2
5
5
2
5
4
2
0
0
0
0
2
1
#294
a Quadra 950
0
2
82
-1
426
5
-1
300
2
g*et t*ake
2
41
-1
in enter
2
41
-1
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
4
2
a Quadra 950
2
Quadra
2
Mac*intosh
2
Computer
2
5
5
2
5
4
2
0
0
0
0
2
1
#295
back entrance hallway
0
2
-1
-1
-1
3
-1
302
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
2
1
296
1
304
2
4
1
-1
2
5
0
2754
2
5
4
3
1
297
1
298
1
303
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
back entrance hallway
2
5
2
You are in a north-south hallway. There is a door leading west.
2
5
4
2
0
0
0
0
2
1
#296
south
0
2
-1
-1
-1
7
-1
297
0
0
13
5
2
5
1
262
2
5
1
295
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#297
north
0
2
-1
-1
-1
7
-1
298
0
0
13
5
2
5
1
295
2
5
1
262
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#298
west
0
2
-1
-1
-1
7
-1
301
0
0
13
5
2
5
1
295
2
5
1
168
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
2
You suddenly realize that its Hell out there...
2
5
0
0
2
4
4
2
2
west
2
w
2
5
5
2
5
4
2
0
0
0
0
2
1
#299
a Candy Dish
0
228
-1
300
-1
8
-1
308
0
0
31
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
2
1
0
1
2
1
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
2
1
5
228
4
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
4
2
a Candy Dish
2
candy bowl
2
bowl
2
dish
228
5
5
228
5
4
2
0
0
0
0
2
1
#300
candy
0
228
299
-1
-1
5
-1
306
1
eat
228
41
-1
0
12
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
1
2
candy
228
5
5
228
5
4
2
0
0
0
0
2
1
#301
out
0
2
-1
-1
-1
7
-1
303
0
0
13
5
2
5
1
168
2
5
1
82
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
1
2
out
2
5
5
2
5
4
2
0
0
0
0
2
1
#302
southern tee hallway
0
2
-1
-1
-1
3
-1
312
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
3
1
303
1
338
1
356
2
4
1
-1
2
5
0
24225
2
5
4
3
1
304
1
339
1
355
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
southern tee hallway
2
5
2
You are in a north-south hallway. There is a passage leading east.
2
5
4
2
0
0
0
0
2
1
#303
south
0
2
-1
-1
-1
7
-1
304
0
0
13
5
2
5
1
295
2
5
1
302
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
south
2
s
2
5
5
2
5
4
2
0
0
0
0
2
1
#304
north
0
2
-1
-1
-1
7
-1
313
0
0
13
5
2
5
1
302
2
5
1
295
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
north
2
n
2
5
5
2
5
4
2
0
0
0
0
2
1
#305
the first discount price list
0
2
354
-1
-1
9
-1
-1
0
0
15
5
2
5
5
2
4
4
2
2
First Discount Price List
2
...
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
4
2
the first discount price list
2
price list
2
list
2
prices
2
5
5
2
5
4
2
0
0
0
0
2
1
#306
a Disk Drive
0
2
291
-1
315
5
-1
307
3
g*et t*ake
2
41
-1
unplug
2
41
-1
plug*in
2
41
-1
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
4
2
a Disk Drive
2
disk
2
drive
2
hard disk
2
5
2
The drive is plugged in.
2
5
4
2
0
0
0
0
2
1
#307
Leash
0
147
147
-1
345
5
-1
309
1
put leash on any
147
9
-1
0
12
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
0
0
147
4
4
1
2
Leash
147
5
2
A blue leash, triple stiched
147
5
4
2
0
0
0
0
2
1
#308
a Mac Plus
0
2
270
-1
309
8
-1
311
1
switch
2
105
-2
1
active
32
0
1
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
0
0
2
1
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
1
2
1
5
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
4
2
a Mac Plus
2
mac*intosh
2
computer
2
toaster
2
5
2
You are looking at a Mac Plus. Its displaying the finder.
2
5
4
2
0
0
0
0
2
1
#309
a System 4.2 Diskette
0
2
270
-1
-1
5
-1
310
0
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
a System 4.2 Diskette
2
disk*ette
2
floppy
2
5
5
2
5
4
2
0
0
0
0
2
1
#310
a capacitor
0
2
115
-1
-1
5
-1
315
0
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
a capacitor
2
capacitor
2
5
2
Its an old, burned up capacitor. Who knows what it might be useful for...
2
5
4
2
0
0
0
0
2
1
#311
the Bookshelf
0
2
211
88
-1
8
-1
316
1
t*ake g*et
2
41
-1
0
31
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
5
2
1
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
5
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
the Bookshelf
2
shelf
2
bookcase
2
5
2
the shelf is nondescript. There is lots of dust on it.
2
5
4
2
0
0
0
0
2
1
#312
Barra
0
2
-1
-1
-1
3
-1
124
0
0
17
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
4
1
1
313
2
4
1
-1
2
5
0
17355
2
5
4
1
1
314
2
4
5
2
5
5
2
5
0
0
2
4
4
1
2
Barra
2
5
2
Barra. There are computers everywhere. Nobody is around, though...
2
5
4
2
0
0
0
0
2
1
#313
up
0
2
-1
-1
-1
7
-1
314
0
0
13
5
2
5
1
11
2
5
1
312
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
up
2
u
2
5
5
2
5
4
2
0
0
0
0
2
1
#314
down
0
2
-1
-1
-1
7
-1
336
0
0
13
5
2
5
1
312
2
5
1
11
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
down
2
d
2
5
5
2
5
4
2
0
0
0
0
2
1
#315
a computer chip
0
2
291
-1
-1
5
-1
317
0
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
a computer chip
2
chip
2
the chip
2
5
2
A computer chip. It has lots of little metal legs.
2
5
4
2
0
0
0
0
2
1
#316
the Refrigerator
0
2
194
317
324
8
-1
318
1
t*ake g*et
2
41
-1
0
31
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
1
2
1
0
0
2
1
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
1
2
1
5
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
the Refrigerator
2
fridge
2
5
5
2
5
4
2
0
0
0
0
2
1
#317
a moldy chinese food container
0
2
316
-1
-1
5
-1
319
0
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
4
2
a moldy chinese food container
2
chinese food
2
container
2
box
2
5
5
2
5
4
2
0
0
0
0
2
1
#318
a box of doughnuts
0
2
197
429
-1
8
-1
324
0
0
31
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
0
0
2
1
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
1
2
1
5
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
6
2
a box of doughnuts
2
doughnuts
2
the box
2
a box
2
some doughnuts
2
box
2
5
2
its your standard doughnut box. there may be goodies inside.
2
5
4
2
0
0
0
0
2
1
#319
Generic Doughnut
0
2
324
-1
-1
5
429
326
1
eat
2
41
-1
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
1
2
Generic Doughnut
2
5
5
2
5
4
2
0
0
0
0
2
1
#320 recycled
#321 recycled
#322 recycled
#323 recycled
#324
cabinet
0
2
194
319
-1
8
-1
352
1
t*ake g*et
2
41
-1
0
31
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
1
0
0
2
1
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
1
1
2
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
1
2
cabinet
2
5
2
This is a locked glass cabinet. You see an ideal doughnut inside.
2
5
4
2
0
0
0
0
2
1
#325 recycled
#326
a dead plant
0
2
151
-1
329
5
-1
327
1
water
2
41
-1
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
a dead plant
2
dead plant
2
plant
2
5
2
Someone has tried to spruce up the dead plant by painting some of the leaves with a bright green paint. How pathetic.
2
5
4
2
0
0
0
0
2
1
#327
a Detachable Penis
0
77
101
-1
-1
5
-1
329
3
flaccid
77
41
-1
shrivel
77
41
-1
erect
77
41
-1
0
12
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
0
0
77
4
4
7
2
a Detachable Penis
2
the penis
2
the dick
2
a penis
2
the detachable penis
2
detachable penis
2
penis
77
5
2
All shrivelled up. The glans penis is white and cold.
77
5
4
2
0
0
0
0
2
1
#328
Amy's Newton
0
2
124
-1
330
5
427
422
1
wr*ite
2
153
4
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
Amy's Newton
2
newton
2
5
5
2
5
4
2
0
0
0
0
2
1
#329
a live plant
0
77
151
-1
-1
5
-1
330
1
water
77
41
-1
0
12
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
1
77
77
4
4
3
2
a live plant
2
live
2
live plant
77
5
2
This thriving plant is green and lush. You better get it out of Steve's office quick!
77
5
4
2
0
0
0
0
2
1
#330
Large Ugly Black Ants
0
147
124
-1
147
5
-1
331
0
0
12
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
0
0
147
4
4
3
2
Large Ugly Black Ants
2
ants
2
the ants
147
5
2
You see very large, ugly black ants. They seem to be mining an applecore that the owner of this cube left under the desk. (What he was doing under the desk remains to be determined)
147
5
4
2
0
0
0
0
2
1
#331
stinking dog turd
0
147
77
-1
157
5
332
333
2
squish
77
41
-1
smell
147
41
-1
0
12
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
1
77
147
4
4
2
2
stinking dog turd
2
turd
147
5
2
A smelly bit of fecal matter. Someone should take a poop scoop to this place!
147
5
4
2
0
0
0
0
2
1
#332
turd
0
147
124
-1
343
331
-1
-1
1
eat
2
41
-1
0
12
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
0
0
147
4
4
1
2
turd
147
5
5
147
5
4
2
0
0
0
0
2
1
#333
it
0
2
2
-1
-1
5
345
334
9
dump_player_db
2
29
-1
call_puppy
2
29
-1
locate_puppy
2
13
-1
join_puppy
2
13
-1
trace_puppy
2
13
-1
untrace_puppy
2
13
-1
eavesdrop_on_puppy
2
13
-1
shutup
2
13
-1
dump_verbs
2
93
-2
2
puppy
feature_ok
14
1
348
2
5
0
1
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
1
2
it
2
5
5
2
5
4
2
0
0
0
0
2
1
#334
a Coffee Cup
0
77
109
-1
77
5
-1
340
1
drink
77
41
-1
0
12
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
0
0
77
4
4
5
2
a Coffee Cup
2
cup
2
the cup
2
the coffee cup
2
coffee
77
5
2
Isn't it amazing how ugly a few days of mold can get?
77
5
4
2
0
0
0
0
2
1
#335
couch hallway
0
77
-1
341
-1
3
-1
354
0
0
17
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
4
2
1
339
1
420
77
4
1
-1
77
5
0
12251
77
5
4
2
1
338
1
421
77
4
5
77
5
5
77
5
0
0
77
4
4
1
2
couch hallway
77
5
2
There is a comfy grey couch here, covered with small, strange stains.
77
5
4
2
0
0
0
0
2
1
#336
s
0
147
-1
-1
-1
7
-1
339
0
0
13
5
147
5
1
124
147
5
1
121
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
0
0
147
4
4
1
2
s
147
5
5
147
5
4
2
0
0
0
0
2
1
#337
Trygve
3
337
17
-1
228
59
-1
346
0
0
61
5
38
1
5
337
5
5
337
5
5
337
5
5
337
5
5
38
1
4
2
0
-1464179181
2
XTC”.Orion
2
0
5
337
5
2
none
2
0
0
-1464178595
2
1
0
0
337
5
5
337
5
5
38
1
5
38
1
5
38
0
5
38
1
5
337
5
4
1
1
337
2
1
5
38
1
1
337
337
4
4
2
2
XTC”.Orion
2
Bob_Monsen@Sartre.Orion
2
0
2
Trygve_Isaacson@“XTC”.Orion
2
0
5
337
5
4
0
337
4
5
337
5
5
337
4
5
337
4
5
337
5
5
337
5
5
337
5
5
337
5
5
337
5
5
337
5
5
337
5
5
337
5
5
337
5
4
2
0
0
0
0
337
4
4
1
4
2
0
1
4
6
0
-1464179478
2
The_Demolished_Man (#77)
2
*New-Prog-Log (#31) and Trygve (#337)
2
@programmer Trygve (#337)
2
2
I just gave Trygve a programmer bit.
337
4
0
750802956
2
1
0
27
2
0
5
337
5
5
337
5
5
337
5
5
337
5
5
337
5
5
337
5
5
337
5
5
337
5
5
337
5
5
337
5
0
0
2
0
5
337
5
5
337
5
5
337
5
5
337
5
5
337
5
0
-1464183081
2
1
0
0
337
4
4
2
2
Trygve
2
Trygve_Isaacson
2
1
5
337
5
4
2
0
0
0
0
2
1
#338
n
0
77
-1
-1
-1
7
-1
355
0
0
13
5
77
5
1
335
77
5
1
302
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
0
0
77
4
4
1
2
n
77
5
5
77
5
4
2
0
0
0
0
2
1
#339
s
0
77
-1
-1
-1
7
-1
338
0
0
13
5
77
5
1
302
77
5
1
335
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
0
0
77
4
4
1
2
s
77
5
5
77
5
4
2
0
0
0
0
2
1
#340
couch
0
77
335
-1
-1
5
-1
342
0
0
12
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
0
0
77
4
4
1
2
couch
77
5
5
77
5
4
2
0
0
0
0
2
1
#341
OK Choral Laserwriter
0
77
335
-1
340
164
-1
-1
0
0
31
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
2
1
5
2
1
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
2
1
5
77
4
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
5
77
5
0
0
77
4
4
1
2
OK Choral Laserwriter
77
5
2
a laserwriter. a red light is blinking on the front.
77
5
4
2
0
0
0
0
2
1
#342
petty cash
0
2
247
-1
-1
5
-1
343
2
burn
2
41
-1
Spend
147
9
-1
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
petty cash
2
money
2
cash
2
5
5
2
5
4
2
0
0
0
0
2
1
#343
a Window
0
2
124
-1
346
5
-1
328
2
g*et t*ake
2
41
-1
look_self
2
172
-1
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
5
2
a Window
2
the window
2
through window
2
out window
2
window
2
5
5
2
5
4
2
0
0
0
0
2
1
#344 recycled
#345
players
0
147
147
-1
-1
333
-1
-1
0
0
14
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
0
0
147
4
4
1
2
players
147
5
5
147
5
4
2
0
0
0
0
2
1
#346
shelby
3
346
124
-1
328
59
-1
79
0
0
61
5
38
1
5
346
5
5
346
5
5
346
5
5
346
5
5
38
1
4
2
0
750697406
2
shelby@Spot.Orion
2
0
5
346
5
2
orion
2
0
0
750702789
2
1
0
0
346
5
5
346
5
5
38
1
5
38
1
5
38
0
5
38
1
5
346
5
4
1
1
346
2
1
5
38
1
1
346
346
4
4
3
2
shelby@Spot.Orion
2
uest@LiverSpot.E.T._Phone_Home
2
Bob_Monsen@Sartre.Orion
2
0
2
shelby@Spot.Orion
2
0
5
346
5
4
0
346
4
5
346
5
5
346
4
5
346
4
5
346
5
5
346
5
5
346
5
5
346
5
5
346
5
5
346
5
5
346
5
5
346
5
5
346
5
4
2
0
0
0
0
346
4
4
0
346
4
0
750802956
2
1
0
27
2
0
5
346
5
5
346
5
5
346
5
5
346
5
5
346
5
5
346
5
5
346
5
5
346
5
5
346
5
1
124
346
5
0
0
2
0
5
346
5
5
346
5
5
346
5
5
346
5
5
346
5
0
-1464094544
2
1
0
0
346
4
4
1
2
shelby
2
1
2
A black spot dalmation, with glowing brown eyes. Never far from LiverSpot...
346
5
4
2
0
0
0
0
2
1
#347 recycled
#348 recycled
#349 recycled
#350 recycled
#351 recycled
#352
The Generic Robot
0
2
-1
-1
-1
8
353
426
16
init_for_core
2
45
-1
start
2
45
-1
stop
2
45
-1
move_now
2
41
-1
is_started
2
173
-1
entering_room
2
173
-1
leaving_room
2
173
-1
trace
2
41
-1
untrace
2
41
-1
announce_to_tracers
2
173
-1
eavesdrop_on
2
41
-1
stop_eavesdropping_on
2
41
-1
tell
2
173
-1
dawdle
2
173
-1
do_i_like_it_here
2
173
-1
do_something_here
2
173
-1
8
movetask
leaving_room_msg
entering_room_msg
prior_location
tracers
eavesdroppers
lazyness
feature_ok
39
0
0
2
5
2
%N leaves the room.
2
5
2
%N enters the room.
2
5
1
-1
2
5
4
0
2
5
4
0
2
5
0
10
2
5
0
1
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
5
2
1
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
5
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
4
2
The Generic Robot
2
the robot
2
a robot
2
robot
2
5
2
Generic Robot. Use this to create your own robots
2
5
4
2
0
0
0
0
2
1
#353
Erik
0
2
426
-1
-1
352
-1
423
2
do_i_like_it_here
2
173
-1
do_something_here
2
173
-1
1
ticks
40
0
5
2
5
0
0
2
5
5
2
5
5
2
5
1
161
2
5
4
0
2
5
5
2
5
0
10
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
2
2
1
0
1
2
1
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
5
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
1
2
Erik
2
5
5
2
5
4
2
0
0
0
0
2
1
#354
hallway near server cube
0
228
-1
305
-1
3
-1
357
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
4
1
355
1
359
1
362
1
365
228
4
1
-1
228
5
0
32257
228
5
4
4
1
356
1
358
1
361
1
364
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
hallway near server cube
228
5
2
You are in an east-west hallway. There are openings to the north and south.
228
5
4
2
0
0
0
0
2
1
#355
east
0
228
-1
-1
-1
7
-1
356
0
0
13
5
228
5
1
302
228
5
1
354
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#356
west
0
228
-1
-1
-1
7
-1
358
0
0
13
5
228
5
1
354
228
5
1
302
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
west
2
w
228
5
5
228
5
4
2
0
0
0
0
2
1
#357
Server Cube
0
228
-1
-1
-1
3
-1
360
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
358
228
4
1
-1
228
5
0
21430
228
5
4
1
1
359
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Server Cube
228
5
5
228
5
4
2
0
0
0
0
2
1
#358
north
0
228
-1
-1
-1
7
-1
359
0
0
13
5
228
5
1
354
228
5
1
357
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#359
south
0
228
-1
-1
-1
7
-1
361
0
0
13
5
228
5
1
357
228
5
1
354
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
south
2
s
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#360
A Spare Cube
0
228
-1
-1
-1
3
-1
363
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
361
228
4
1
-1
228
5
0
31745
228
5
4
1
1
362
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
A Spare Cube
228
5
5
228
5
4
2
0
0
0
0
2
1
#361
south
0
228
-1
-1
-1
7
-1
362
0
0
13
5
228
5
1
354
228
5
1
360
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#362
north
0
228
-1
-1
-1
7
-1
364
0
0
13
5
228
5
1
360
228
5
1
354
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
north
2
n
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#363
hallway near Betsy's old cube
0
228
-1
-1
-1
3
-1
366
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
4
1
364
1
368
1
371
1
374
228
4
1
-1
228
5
0
10814
228
5
4
4
1
365
1
367
1
370
1
373
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
hallway near Betsy's old cube
228
5
2
You are in an east-west hallway. there are exits north and south.
228
5
4
2
0
0
0
0
2
1
#364
east
0
228
-1
-1
-1
7
-1
365
0
0
13
5
228
5
1
354
228
5
1
363
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#365
west
0
228
-1
-1
-1
7
-1
367
0
0
13
5
228
5
1
363
228
5
1
354
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
west
2
w
228
5
5
228
5
4
2
0
0
0
0
2
1
#366
Betsy's old cube
0
228
-1
-1
-1
3
-1
369
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
367
228
4
1
-1
228
5
0
26597
228
5
4
1
1
368
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Betsy's old cube
228
5
5
228
5
4
2
0
0
0
0
2
1
#367
north
0
228
-1
-1
-1
7
-1
368
0
0
13
5
228
5
1
363
228
5
1
366
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#368
south
0
228
-1
-1
-1
7
-1
370
0
0
13
5
228
5
1
366
228
5
1
363
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
south
2
s
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#369
The binder cube
0
228
-1
422
-1
3
-1
372
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
370
228
4
1
-1
228
5
0
25851
228
5
4
1
1
371
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
The binder cube
228
5
2
You are in a cube filled with useless junk.
228
5
4
2
0
0
0
0
2
1
#370
south
0
228
-1
-1
-1
7
-1
371
0
0
13
5
228
5
1
363
228
5
1
369
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#371
north
0
228
-1
-1
-1
7
-1
373
0
0
13
5
228
5
1
369
228
5
1
363
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
north
2
n
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#372
hallway turn
0
228
-1
-1
-1
3
-1
375
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
4
1
373
1
377
1
380
1
383
228
4
1
-1
228
5
0
27498
228
5
4
4
1
374
1
376
1
379
1
382
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
hallway turn
228
5
2
You are at the eastern end of a hallway. There is another hallway leading south, and office doors to the north and east.
228
5
4
2
0
0
0
0
2
1
#373
east
0
228
-1
-1
-1
7
-1
374
0
0
13
5
228
5
1
363
228
5
1
372
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#374
west
0
228
-1
-1
-1
7
-1
376
0
0
13
5
228
5
1
372
228
5
1
363
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
west
2
w
228
5
5
228
5
4
2
0
0
0
0
2
1
#375
Mark Green's Office
0
228
-1
-1
-1
3
-1
378
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
376
228
4
1
-1
228
5
0
23976
228
5
4
1
1
377
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Mark Green's Office
228
5
5
228
5
4
2
0
0
0
0
2
1
#376
north
0
228
-1
-1
-1
7
-1
377
0
0
13
5
228
5
1
372
228
5
1
375
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#377
south
0
228
-1
-1
-1
7
-1
379
0
0
13
5
228
5
1
375
228
5
1
372
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
south
2
s
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#378
Erik's Office
0
228
-1
-1
-1
3
-1
381
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
379
228
4
1
-1
228
5
0
26065
228
5
4
1
1
380
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Erik's Office
228
5
5
228
5
4
2
0
0
0
0
2
1
#379
east
0
228
-1
-1
-1
7
-1
380
0
0
13
5
228
5
1
372
228
5
1
378
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#380
west
0
228
-1
-1
-1
7
-1
382
0
0
13
5
228
5
1
378
228
5
1
372
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
west
2
w
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#381
hallway near Erik's office
0
228
-1
-1
-1
3
-1
384
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
2
1
382
1
386
228
4
1
-1
228
5
0
5801
228
5
4
2
1
383
1
385
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
hallway near Erik's office
228
5
2
You are in a north-south hallway. There is a window looking in on Erik's office
228
5
4
2
0
0
0
0
2
1
#382
south
0
228
-1
-1
-1
7
-1
383
0
0
13
5
228
5
1
372
228
5
1
381
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#383
north
0
228
-1
-1
-1
7
-1
385
0
0
13
5
228
5
1
381
228
5
1
372
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#384
hallway near MF's office
0
228
-1
-1
-1
3
-1
387
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
2
1
385
1
389
228
4
1
-1
228
5
0
19070
228
5
4
2
1
386
1
388
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
hallway near MF's office
228
5
2
You are in a north-south hallway. There is a window here looking in on MF's office
228
5
4
2
0
0
0
0
2
1
#385
south
0
228
-1
-1
-1
7
-1
386
0
0
13
5
228
5
1
381
228
5
1
384
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#386
north
0
228
-1
-1
-1
7
-1
388
0
0
13
5
228
5
1
384
228
5
1
381
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#387
hallway turn
0
228
-1
-1
-1
3
-1
390
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
5
1
388
1
392
1
395
1
398
1
401
228
4
1
-1
228
5
0
2168
228
5
4
5
1
389
1
391
1
394
1
397
1
400
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
hallway turn
228
5
2
You are at the southern end of a hallway, which turns here to lead west. There is an office door to the east, and openings to the southwest and southeast.
228
5
4
2
0
0
0
0
2
1
#388
south
0
228
-1
-1
-1
7
-1
389
0
0
13
5
228
5
1
384
228
5
1
387
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#389
north
0
228
-1
-1
-1
7
-1
391
0
0
13
5
228
5
1
387
228
5
1
384
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#390
MF's Office
0
228
-1
-1
-1
3
-1
393
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
391
228
4
1
-1
228
5
0
27082
228
5
4
1
1
392
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
MF's Office
228
5
5
228
5
4
2
0
0
0
0
2
1
#391
east
0
228
-1
-1
-1
7
-1
392
0
0
13
5
228
5
1
387
228
5
1
390
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#392
west
0
228
-1
-1
-1
7
-1
394
0
0
13
5
228
5
1
390
228
5
1
387
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
west
2
w
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#393
Trygve's Cube
0
228
-1
427
-1
3
-1
396
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
394
228
4
1
-1
228
5
0
21153
228
5
4
1
1
395
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Trygve's Cube
228
5
2
You are in Trygve's cube. There is an exit to the northwest.
228
5
4
2
0
0
0
0
2
1
#394
southeast
0
228
-1
-1
-1
7
-1
395
0
0
13
5
228
5
1
387
228
5
1
393
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
southeast
2
se
228
5
5
228
5
4
2
0
0
0
0
2
1
#395
northwest
0
228
-1
-1
-1
7
-1
397
0
0
13
5
228
5
1
393
228
5
1
387
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
northwest
2
nw
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#396
Bob's old cube
0
228
-1
-1
-1
3
-1
399
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
397
228
4
5
228
5
5
228
5
4
1
1
398
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Bob's old cube
228
5
5
228
5
4
2
0
0
0
0
2
1
#397
southwest
0
228
-1
-1
-1
7
-1
398
0
0
13
5
228
5
1
387
228
5
1
396
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
southwest
2
sw
228
5
5
228
5
4
2
0
0
0
0
2
1
#398
northeast
0
228
-1
-1
-1
7
-1
400
0
0
13
5
228
5
1
396
228
5
1
387
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
northeast
2
ne
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#399
hallway near Kai's Cube
0
228
-1
-1
-1
3
-1
402
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
3
1
400
1
404
1
407
228
4
1
-1
228
5
0
1201
228
5
4
3
1
401
1
403
1
406
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
hallway near Kai's Cube
228
5
2
You are in an east-west hallway. There is an opening to the north.
228
5
4
2
0
0
0
0
2
1
#400
west
0
228
-1
-1
-1
7
-1
401
0
0
13
5
228
5
1
387
228
5
1
399
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
west
2
w
228
5
5
228
5
4
2
0
0
0
0
2
1
#401
east
0
228
-1
-1
-1
7
-1
403
0
0
13
5
228
5
1
399
228
5
1
387
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#402
Kai's Cube
0
228
-1
-1
-1
3
-1
405
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
403
228
4
5
228
5
5
228
5
4
1
1
404
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Kai's Cube
228
5
5
228
5
4
2
0
0
0
0
2
1
#403
north
0
228
-1
-1
-1
7
-1
404
0
0
13
5
228
5
1
399
228
5
1
402
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#404
south
0
228
-1
-1
-1
7
-1
406
0
0
13
5
228
5
1
402
228
5
1
399
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
south
2
s
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#405
hallway near Leslie's Cube
0
228
-1
-1
-1
3
-1
408
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
4
1
406
1
410
1
413
1
416
228
4
1
-1
228
5
0
12898
228
5
4
4
1
407
1
409
1
412
1
415
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
hallway near Leslie's Cube
228
5
2
You are in an east-west hallway. There are exits leading north and south.
228
5
4
2
0
0
0
0
2
1
#406
west
0
228
-1
-1
-1
7
-1
407
0
0
13
5
228
5
1
399
228
5
1
405
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
west
2
w
228
5
5
228
5
4
2
0
0
0
0
2
1
#407
east
0
228
-1
-1
-1
7
-1
409
0
0
13
5
228
5
1
405
228
5
1
399
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#408
Leslie Trybull's Cube
0
228
-1
-1
-1
3
-1
411
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
409
228
4
5
228
5
5
228
5
4
1
1
410
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Leslie Trybull's Cube
228
5
5
228
5
4
2
0
0
0
0
2
1
#409
south
0
228
-1
-1
-1
7
-1
410
0
0
13
5
228
5
1
405
228
5
1
408
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#410
north
0
228
-1
-1
-1
7
-1
412
0
0
13
5
228
5
1
408
228
5
1
405
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
north
2
n
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#411
Paul's Cube
0
228
-1
-1
-1
3
-1
414
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
412
228
4
5
228
5
5
228
5
4
1
1
413
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Paul's Cube
228
5
5
228
5
4
2
0
0
0
0
2
1
#412
north
0
228
-1
-1
-1
7
-1
413
0
0
13
5
228
5
1
405
228
5
1
411
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#413
south
0
228
-1
-1
-1
7
-1
415
0
0
13
5
228
5
1
411
228
5
1
405
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
south
2
s
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#414
hallway near Susan B's Office
0
228
-1
-1
-1
3
-1
417
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
3
1
415
1
419
1
421
228
4
1
-1
228
5
0
14400
228
5
4
3
1
416
1
418
1
420
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
hallway near Susan B's Office
228
5
2
You are at the south end of a long north-south hallway. There is an office to the south, and another hallway leading east.
228
5
4
2
0
0
0
0
2
1
#415
west
0
228
-1
-1
-1
7
-1
416
0
0
13
5
228
5
1
405
228
5
1
414
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
west
2
w
228
5
5
228
5
4
2
0
0
0
0
2
1
#416
east
0
228
-1
-1
-1
7
-1
418
0
0
13
5
228
5
1
414
228
5
1
405
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
east
2
e
228
5
5
228
5
4
2
0
0
0
0
2
1
#417
Susan's Office
0
228
-1
-1
-1
3
-1
-1
0
0
17
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
4
1
1
418
228
4
1
-1
228
5
0
32455
228
5
4
1
1
419
228
4
5
228
5
5
228
5
0
0
228
4
4
1
2
Susan's Office
228
5
5
228
5
4
2
0
0
0
0
2
1
#418
south
0
228
-1
-1
-1
7
-1
419
0
0
13
5
228
5
1
414
228
5
1
417
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#419
north
0
228
-1
-1
-1
7
-1
420
0
0
13
5
228
5
1
417
228
5
1
414
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
3
2
north
2
n
2
out
228
5
5
228
5
4
2
0
0
0
0
2
1
#420
north
0
228
-1
-1
-1
7
-1
421
0
0
13
5
228
5
1
414
228
5
1
335
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
north
2
n
228
5
5
228
5
4
2
0
0
0
0
2
1
#421
south
0
228
-1
-1
-1
7
-1
-1
0
0
13
5
228
5
1
335
228
5
1
414
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
south
2
s
228
5
5
228
5
4
2
0
0
0
0
2
1
#422
some junk
0
228
369
-1
-1
5
-1
428
1
t*ake g*et
228
41
-1
0
12
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
5
228
5
0
0
228
4
4
2
2
some junk
2
junk
228
5
2
Lots of old, useless binders, 400K diskettes, and out of date manuals.
228
5
4
2
0
0
0
0
2
1
#423
Mary Felice
0
2
426
-1
424
352
-1
424
4
Do_I_Like_It_Here
2
173
-1
do_something_here
2
173
-1
tell_contents
2
173
-1
look_self
2
173
-1
1
ticks
40
0
5
2
5
0
0
2
5
5
2
5
5
2
5
1
134
2
5
4
0
2
5
5
2
5
0
10
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
2
2
1
0
1
2
1
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
5
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
Mary Felice
2
mf
2
5
2
Mary Felice Crowe
2
5
4
2
0
0
0
0
2
1
#424
John Roberts
0
2
426
-1
353
352
-1
-1
2
do_i_like_it_here
2
173
-1
do_something_here
2
173
-1
0
39
0
0
2
5
5
2
5
5
2
5
1
100
2
5
4
0
2
5
5
2
5
0
1
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
5
2
1
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
5
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
3
2
John Roberts
2
JR
2
john
2
5
5
2
5
4
2
0
0
0
0
2
1
#425 recycled
#426
bob's cabinet
0
2
82
423
428
8
-1
-1
0
0
31
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
1
0
0
2
1
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
1
2
1
1
2
2
4
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
1
2
2
4
4
2
2
bob's cabinet
2
cabinet
2
5
2
You see a bland beige cabinet. It has a lock, which you probably don't have the key for.
2
5
4
2
0
0
0
0
2
1
#427
Trygve's Newton
0
2
393
-1
-1
328
-1
-1
0
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
Trygve's Newton
2
newton
2
5
5
2
5
4
2
0
0
0
0
2
1
#428
a window
0
2
82
-1
2
5
-1
433
1
look_self
2
172
-1
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
1
2
2
4
4
5
2
a window
2
the window
2
through window
2
out window
2
window
2
5
5
2
5
4
2
0
0
0
0
2
1
#429
Chocolate Eclair
0
2
318
-1
430
319
-1
430
0
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
2
2
Chocolate Eclair
2
eclair
2
5
5
2
5
4
2
0
0
0
0
2
1
#430
Jelly Doughnut
0
2
318
-1
431
319
-1
431
0
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
1
2
Jelly Doughnut
2
5
5
2
5
4
2
0
0
0
0
2
1
#431
Half eaten dog biscuit
0
2
318
-1
-1
319
-1
-1
0
0
12
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
5
2
5
0
0
2
4
4
1
2
Half eaten dog biscuit
2
5
5
2
5
4
2
0
0
0
0
2
1
#432 recycled
#433
devil
0
147
168
-1
-1
5
-1
130
0
0
12
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
5
147
5
2
The devil's eyes glow red. You feel a burning sensation throughout your body. Maybe it is not a good idea to take the devil?
147
5
1
147
147
4
4
3
2
devil
2
the devil
2
satan
147
5
2
A horned creature, who appears to be smoking...
147
5
4
2
0
0
0
0
2
1
#0:0
"...This code should only be run as a server task...";
"set_description(newdesc) attempts to change this.description to newdesc";
" => E_PERM if you don't own this or aren't its parent";
if (!($perm_utils:controls(caller_perms(), this) || (this == caller)))
return E_PERM;
elseif (typeof(desc = args[1]) in {LIST, STR})
this.description = desc;
return 1;
else
return E_TYPE;
endif
.
#1:9
return this.description;
.
#1:10
desc = this:description();
if (desc)
player:tell_lines(desc);
else
player:tell("You see nothing special.");
endif
.
#1:11
player:tell("The examine command has been renamed to @examine. Please use @examine.");
.
#1:12
if (is_player(this))
notify(this, args[1]);
endif
.
#1:13
this:notify(tostr(@args));
.
#1:14
lines = args[1];
if (typeof(lines) == LIST)
for line in (lines)
this:tell(line);
endfor
else
this:tell(lines);
endif
.
#1:15
return 0;
.
#1:16
set_task_perms(this.owner);
return move(this, args[1]);
.
#1:17
"eject(victim) --- usable by the owner of this to remove victim from this.contents. victim goes to its home if different from here, or $nothing or $player_start according as victim is a player.";
"eject_basic(victim) --- victim goes to $nothing or $player_start according as victim is a player; victim:moveto is not called.";
what = args[1];
nice = (verb != "eject_basic");
perms = caller_perms();
if ((!perms.wizard) && (perms != this.owner))
return E_PERM;
elseif ((!(what in this.contents)) || what.wizard)
"examine_desc(who) - return the description, probably";
"who is the player examining";
"this should probably go away";
desc = this:description();
if (desc)
if (typeof(desc) != LIST)
desc = {desc};
endif
return desc;
else
return {"(No description set.)"};
endif
.
#1:25
"examine_contents(examiner)";
"by default, calls :tell_contents.";
"Should probably go away.";
who = args[1];
"if (caller == this && $object_utils:has_verb(this, \"tell_contents\"))";
if (caller == this)
this:tell_contents(this.contents, this.ctype);
endif
.
#1:26
"Return a list of strings to be told to the player. Standard format says \"Obvious verbs:\" followed by a series of lines explaining syntax for each usable verb.";
"Returns a list of the objects that are apparently inside this one. Don't confuse this with .contents, which is a property kept consistent with .location by the server. This verb should be used in `VR' situations, for instance when looking in a room, and does not necessarily have anything to do with the value of .contents (although the default implementation does). `Non-VR' commands (like @contents) should look directly at .contents.";
"loc is the object that defines the verb; index is which verb on the object; info is verb_info; syntax is verb_args; commands_ok is determined by this:commands_ok, probably, but passed in so we don't have to calculate it for each verb.";
"hidden_verbs is passed in for the same reasons. It should be a list, each of whose entries is either a string with the full verb name to be hidden (e.g., \"d*rop th*row\") or a list of the form {verb location, full verb name, args}.";
if ((caller == this) || $perm_utils:controls(caller_perms(), this))
loc = args[1];
info = args[3];
vname = info[3];
syntax = args[4];
hidden_verbs = args[6];
return (((((syntax[2..3] != {"none", "this"}) && (!index(vname, "("))) && (args[5] || ("this" in syntax))) && verb_code(loc, tostr(args[2]))) && (!(vname in hidden_verbs))) && (!({loc, vname, syntax} in hidden_verbs));
else
return E_PERM;
endif
.
#1:32
"return 1 if the object can hear a :tell, or cares. Useful for active objects that want to stop when nothing is listening.";
return 0;
.
#1:33
"hidden_verbs(who)";
"returns a list of verbs on this that should be hidden from examine";
"the player who's examining is passed in, so objects can hide verbs from specific players";
"verbs are returned as {location, full_verb_name, args} or just full_verb_name. full_verb name is what shows up in verb_info(object, verb)[2], for example \"d*op th*row\".";
if ((caller == this) || $perm_utils:controls(caller_perms(), this))
if ($command_utils:object_match_failed(exit, dobjstr))
return;
endif
if (!($exit in $object_utils:ancestors(exit)))
player:tell("That doesn't look like an exit object to me...");
return;
endif
dest = exit.dest;
source = exit.source;
if (dest == E_PERM)
player:tell("You can't read the exit's destination to check that it's consistent!");
return;
elseif (source == E_PERM)
player:tell("You can't read that exit's source to check that it's consistent!");
return;
elseif (source != this)
player:tell("That exit wasn't made to be attached here; it was made as an exit from ", source.name, " (", source, ").");
return;
elseif (((typeof(dest) != OBJ) || (!valid(dest))) || (!($room in $object_utils:ancestors(dest))))
player:tell("That exit doesn't lead to a room!");
return;
endif
if (!this:add_exit(exit))
player:tell("Sorry, but you must not have permission to add exits to this room.");
else
player:tell("You have added ", exit, " as an exit that goes to ", exit.dest.name, " (", exit.dest, ") via ", $string_utils:english_list(setadd(exit.aliases, exit.name)), ".");
if ((caller == this) || $perm_utils:controls(caller_perms(), this))
return this.exits;
else
return E_PERM;
endif
.
#3:36
exits = {};
for exit in (this.exits)
if (exit.obvious)
exits = setadd(exits, exit);
endif
endfor
return exits;
.
#3:37
":here_huh(verb,args) -- room-specific :huh processing. This should return 1 if it finds something interesting to do and 0 otherwise; see $command_utils:do_huh.";
"For the generic room, we check for the case of the caller specifying an exit for which a corresponding verb was never defined.";
set_task_perms(caller_perms());
if (args[2] || ($failed_match == (exit = this:match_exit(verb = args[1]))))
"... okay, it's not an exit. we give up...";
return 0;
elseif (valid(exit))
exit:invoke();
else
"... ambiguous exit ...";
player:tell("I don't know which direction `", verb, "' you mean.");
endif
return 1;
.
#3:38
this:(verb[6..length(verb)])(@args);
.
#3:39
return this == args[1].location;
.
#3:40
"examine_key(examiner)";
"return a list of strings to be told to the player, indicating what the key on this type of object means, and what this object's key is set to.";
"the default will only tell the key to a wizard or this object's owner.";
return {tostr(this:title(), " will accept only objects matching the following key:"), tostr(" ", $lock_utils:unparse_key(this.key))};
endif
.
#3:41
"examine_contents(who)";
if (caller == this)
this:tell_contents(this.contents, this.ctype);
endif
.
#4:0
if ((dobjstr == "") || (dobj == player))
q = player.ownership_quota;
if (q == 0)
player:notify("You can't create any more objects until you recycle some of the ones you already own.");
else
player:notify(tostr("You can create ", q, " new object", (q == 1) ? "" | "s", " without recycling any that you already own."));
endif
else
set_task_perms(player);
dobj = $string_utils:match_player(dobjstr);
if (!valid(dobj))
player:notify("Show whose quota?");
return;
endif
q = dobj.ownership_quota;
if (typeof(q) == ERR)
player:notify(tostr(q));
else
player:notify(tostr(dobj.name, "'s quota is currently ", q, "."));
endif
endif
.
#4:1
set_task_perms(player);
nargs = length(args);
pos = ("named" in args);
if ((pos <= 1) || (pos == nargs))
pos = ("called" in args);
endif
if ((pos <= 1) || (pos == nargs))
player:notify("Usage: @create <parent-class> named [name:]alias,...,alias");
player:notify(" or: @create <parent-class> named name-and-alias,alias,...,alias");
player:notify("");
player:notify("where <parent-class> is one of the standard classes ($note, $letter, $thing, or $container) or an object number (e.g., #999), or the name of some object in the current room.");
player:notify("You can use \"called\" instead of \"named\"");
"@recreate <object> as <parent-class> named [name:]alias,alias,...";
" effectively recycles and creates <object> all over again.";
set_task_perms(player);
named = ("named" in args);
as = (prepstr in args);
if ((named <= (as + 1)) || (named == length(args)))
player:notify_lines({tostr("Usage: ", verb, " <object> as <parent-class> named [name:]alias,...,alias"), "", "where <parent-class> is one of the standard classes ($note, $letter, $thing, or $container) or an object number (e.g., #999), or the name of some object in the current room. The [name:]alias... specification is as in @create."});
"where `name' is the name of a particular class of objects, `description' is a one-sentence description of the membership of the class, and `members' is a list of object numbers, the members of the class.";
"";
if (args)
members = {};
for name in (args)
class = $list_utils:assoc_prefix(name, $class_registry);
if (class)
for o in (class[3])
members = setadd(members, o);
endfor
else
player:tell("There is no defined class of objects named `", name, "'; type `@classes' to see a complete list of defined classes.");
return;
endif
endfor
printed = {};
for o in (members)
what = o;
while (valid(what))
printed = setadd(printed, what);
what = parent(what);
endwhile
endfor
player:tell("Members of the class", (length(args) > 1) ? "es" | "", " named ", $string_utils:english_list(args), ":");
"...They chparented to #1 and want to chparent back to $prog. Probably for some nefarious purpose...";
player:notify("You don't seem to already be a valid player class. Perhaps chparenting away from the $player hierarchy was not such a good idea. Permission denied.");
this:notify(tostr("You have new mail (", nm, " message", (nm == 1) ? "" | "s", ").", this:mail_option("expert") ? "" | " Type 'help mail' for info on reading it."));
endif
this:mail_catch_up();
this:check_mail_lists();
.
#6:2
if (valid(caller_perms()) && (caller != this))
return E_PERM;
endif
this:expunge_rmm();
this.last_disconnect_time = time();
return;
.
#6:3
if ((caller == this) || $perm_utils:controls(caller_perms(), this))
this.help = 0;
return pass(@args);
else
return E_PERM;
endif
.
#6:4
set_task_perms(caller_perms());
if ((!is_player(this)) || caller_perms().wizard)
pass(@args);
return;
endif
"...start off with a wizard shout...";
for p in (connected_players())
if (p.wizard)
p:tell($string_utils:pronoun_sub("%N (%#) is currently trying to recycle %t (%[#t])"));
endif
endfor
"...Okay here's the fun part.";
"...Doing kill_task(task_id()) doesn't work because the server can";
"...figure out that it's okay to go ahead and recycle once the task finishes.";
"...Evidently, suspend() confuses the server sufficiently that it forgets to";
"...do the recycle once the task finishes or dies. Now of course, we don't";
"...want suspended tasks hanging around indefinitely, so we fork something";
"...off to kill it. This seems to work...";
t = task_id();
fork (1)
kill_task(t);
endfork
"...let him think he succeeded (should we do this ?)...no.";
"...boot_player(this)";
"...emergency life support...";
suspend(1073741823);
"...code not reached --- the patient lives...";
"...keep this around for posterity...";
if (is_player(this))
for a in (this.aliases)
$player_db:delete(a);
endfor
$player_db:delete(this.name);
endif
pass(@args);
.
#6:5
return !is_player(args[1]);
.
#6:6
"Extra parsing of player commands. Called by $command_utils:do_huh.";
"This version of my_huh just handles features.";
if ((caller != this) && (!$perm_utils:controls(caller_perms(), this)))
"Standard permissions check.";
return E_PERM;
endif
"verb - obvious pass - would be args";
"plist - list of prepspecs that this command matches";
"dlist and ilist - likewise for dobjspecs, iobjspecs";
result = (text ? who:receive_page(header, text) | who:receive_page(header));
if (result == 2)
"not connected";
player:tell((typeof(msg = who:page_absent_msg()) == STR) ? msg | $string_utils:pronoun_sub("%n is not currently logged in.", who));
else
player:tell(who:page_echo_msg());
endif
.
#6:31
"called by $player:page. Two args, the page header and the text, all pre-processed by the page command. Could be extended to provide haven abilities, multiline pages, etc. Indeed, at the moment it just does :tell_lines, so we already do have multiline pages, if someone wants to take advantage of it.";
"Return codes:";
" 1: page was received";
" 2: player is not connected";
" 0: page refused";
"If a specialization wants to refuse a page, it should return 0 to say it was refused. If it uses pass(@args) it should propagate back up the return value. It is possible that this code should interact with gagging and return 0 if the page was gagged.";
if (!$object_utils:has_callable_verb(here, "accept_for_abode"))
player:notify("This is a pretty odd place. You should make your home in an actual room.");
elseif (here:accept_for_abode(this))
this.home = here;
player:notify(tostr(here.name, " is your new home."));
else
player:notify(tostr("This place doesn't want to be your home. Contact ", here.owner.name, " to be added to the residents list of this place, or choose another place as your home."));
endif
.
#6:37
player:tell("This is not a pick-up joint!");
this:tell(player.name, " tried to pick you up.");
.
#6:38
set_task_perms((caller == this) ? this | $no_one);
dobj = this:my_match_object(dobjstr);
iobj = this:my_match_object(iobjstr);
if ($command_utils:object_match_failed(dobj, dobjstr) || ((iobj != $nothing) && $command_utils:object_match_failed(iobj, iobjstr)))
return;
endif
if ((!$perm_utils:controls(this, dobj)) && (this != dobj))
player:tell("You may only @move your own things.");
return;
endif
old_loc = dobj.location;
if (old_loc == iobj)
player:tell(dobj.name, " is already ", valid(iobj) ? "in " + iobj.name | "nowhere", ".");
return;
endif
dobj:moveto(iobj);
if (dobj.location == iobj)
player:tell("Moved.");
if (is_player(dobj))
if (valid(old_loc))
old_loc:announce_all(dobj.name, " disappears suddenly for parts unknown.");
if (dobj != player)
dobj:tell("You have been moved by ", player.name, ".");
endif
endif
if (valid(dobj.location))
dobj.location:announce(dobj.name, " materializes out of thin air.");
endif
endif
elseif (dobj.location == old_loc)
if ($object_utils:contains(dobj, iobj))
player:tell(iobj.name, " is inside of ", dobj.name, "!");
else
player:tell($string_utils:pronoun_sub("Either %d doesn't want to go, or %i doesn't want to accept %[dpo]."));
endif
elseif (dobj == player)
player:tell("You have been deflected from your original destination.");
else
player:tell($string_utils:pronoun_sub("%D has been deflected from %[dpp] original destination."));
"list_rmm() => number of messages awaiting expunge";
"renumber(cur) => {number of messages in folder, new_cur}";
"";
"See the corresponding routines on $mail_agent.";
if ((caller == $mail_agent) || $perm_utils:controls(caller_perms(), this))
set_task_perms(this.owner);
return $mail_agent:(verb)(@args);
else
return E_PERM;
endif
.
#6:49
return $mail_agent:msg_summary_line(@args);
.
#6:50
return $mail_agent:to_text(@args);
.
#6:51
":notify_mail(from,recipients[,msgnums])";
" used by $mail_agent:raw_send to notify this player about mail being sent";
" from <from> to <recipients>. <msgnums> if given gives the message number(s) assigned (in the event that the corresponding recipient actually kept the mail)";
if (!$object_utils:connected(this))
return;
elseif (!((caller in {this, $mail_agent}) || $perm_utils:controls(caller_perms(), this)))
return E_PERM;
else
from = args[1];
recipients = args[2];
msgnums = {@args, {}}[3];
"... msgnums may be shorter than recipients or may have some slots filled";
"... with 0's if msg numbers are not available for some recipients.";
if ((t = (this in recipients)) && ((length(msgnums) >= t) && msgnums[t]))
"... you are getting the mail and moreover your :receive_message kept it.";
this:notify(tostr("You have new mail (", msgnums[t], ") from ", from.name, " (", from, ")", namelist ? " which was also sent to " + namelist | "", "."));
if (!this:mail_option("expert"))
this:notify(tostr("Type `help mail' for info on reading it."));
endif
else
"... vanilla notification; somebody got sent mail and you're finding out.";
if (p = this:parse_mailread_cmd("@mail", args, this:mail_option("@mail") || "last:15", "on"))
this:set_current_folder(folder = p[1]);
msg_seq = p[2];
seq_size = $seq_utils:size(msg_seq);
if ((lim = player:mail_option("manymsgs")) && ((lim <= seq_size) && (!$command_utils:yes_or_no(tostr("You are about to see ", seq_size, " message headers. Continue?")))))
if (p = this:parse_mailread_cmd("@read", args, "", "on"))
this:set_current_folder(folder = p[1]);
msg_seq = p[2];
if ((lim = player:mail_option("manymsgs")) && ((lim <= (seq_size = $seq_utils:size(msg_seq))) && (!$command_utils:yes_or_no(tostr("You are about to see ", seq_size, " messages. Continue?")))))
player:notify_lines({tostr("Usage: ", verb, " [message-# [on <recipient>]] [flags...]"), "where flags include any of:", " all reply to everyone", " sender reply to sender only", " include include the original message in your reply", " noinclude don't include the original in your reply"});
player:notify_lines({tostr("You need to make it a one-liner, i.e., `", verb, " something or other'."), "This room may not let you back in if you go to the Mail Room."});
elseif ($object_utils:isa(loc, $generic_editor))
player:notify_lines({tostr("You need to make it a one-liner, i.e., `", verb, " something or other'."), "Sending you to the Mail Room from an editor is usually a bad idea."});
elseif (!($player_db:available(name) in {this, 1}))
return E_INVARG;
else
old = this.name;
this.name = name;
if ((name != old) && (!(old in this.aliases)))
$player_db:delete(old);
endif
$player_db:insert(name, this);
return 1;
endif
.
#6:84
"set_aliases(alias_list)";
"For changing player aliases, we check to make sure that none of the aliases match existing player names/aliases. Aliases containing spaces are not entered in the $player_db and so are not subject to this restriction ($string_utils:match_player will not match on them, however, so they only match if used in the immediate room, e.g., with match_object() or somesuch).";
"Also we make sure that the .name is included in the .alias list. In any situation where .name and .aliases are both being changed, do the name change first.";
" => E_PERM if you don't own this";
" => E_NACC if the player database is not taking new aliases right now.";
" => E_TYPE if alias_list is not a list";
" => E_INVARG if any element of alias_list is not a string";
if (!($perm_utils:controls(caller_perms(), this) || (this == caller)))
return E_PERM;
elseif (!is_player(this))
"we don't worry about the names of player classes.";
alias_message = tostr(". Aliases are unchanged (", aliases, ").");
else
alias_message = tostr(", with aliases ", aliases, ".");
endif
player:notify(name_message + alias_message);
elseif (e == E_INVARG)
player:notify("That particular name change not allowed (see help @rename).");
elseif (e == E_NACC)
player:notify("Oops. You can't update that name right now; try again in a few minutes.");
elseif (e == E_ARGS)
player:notify(tostr("Sorry, name too long. Maximum number of characters in a name: ", $login.max_player_name));
else
player:notify(tostr(e));
endif
endif
endif
.
#6:86
"Syntax: @addalias <alias>[,...,<alias>] to <object>";
" @addalias <alias>[,...,<alias>] to <object>:<verb>";
"";
"The first form is used to add aliases to an object's list of aliases. You can separate multiple aliases with commas. The aliases will be checked against the object's current aliases and all aliases not already in the object's list of aliases will be added.";
"";
"Example:";
"Muchkin wants to add new aliases to Rover the Wonder Dog:";
" @addalias Dog,Wonder Dog to Rover";
"Since Rover the Wonder Dog already has the alias \"Dog\" but does not have the alias \"Wonder Dog\", Munchkin sees:";
" Rover the Wonder Dog(#4237) already has the alias Dog.";
" Alias Wonder Dog added to Rover the Wonder Dog(#4237).";
"";
"If the object is a player, spaces will also be assumed to be separations between aliases and each alias will be checked against the Player Name Database to make sure no one else is using it. Any already used aliases will be identified.";
"";
"Example:";
"Munchkin wants to add his nicknames to his own list of aliases:";
" @addalias Foobar Davey to me";
"@Addalias recognizes that Munchkin is trying to add an alias to a valid player and checks the aliases against the Player Name Database. Unfortunately, DaveTheMan is already using the alias \"Davey\" so Munchkin sees:";
" DaveTheMan(#5432) is already using the alias Davey";
" Alias Foobar added to Munchkin(#1523).";
"";
"The second form of the @addalias command is for use by programmers, to add aliases to a verb they own. All commas and spaces are assumed to be separations between aliases.";
if (player != this)
return;
endif
set_task_perms(player);
spec = $code_utils:parse_verbref(iobjstr);
if (spec)
object = player:my_match_object(spec[1]);
if (!$command_utils:object_match_failed(object, spec[1]))
vname = spec[2];
info = verb_info(object, vname);
if (info == E_VERBNF)
player:notify("That object does not define that verb.");
elseif (typeof(info) == ERR)
player:notify(tostr(info));
else
old_aliases = $string_utils:explode(info[3]);
used = {};
for alias in (new_aliases = $list_utils:remove_duplicates($string_utils:explode(strsub(dobjstr, ",", " "))))
player:notify(tostr("Aliases for ", object.name, "(", object, ") are now ", $string_utils:from_value(aliases, 1)));
elseif (e || (e == E_INVARG))
player:notify("That particular name change not allowed (see help @rename or help @addalias).");
elseif (e == E_NACC)
player:notify("Oops. You can't update that object's aliases right now; try again in a few minutes.");
else
player:notify(tostr(e));
endif
endif
endif
endif
.
#6:87
"Syntax: @rmalias <alias>[,...,<alias>] from <object>";
" @rmalias <alias>[,...,<alias>] from <object>:<verb>";
"";
"The first form is used to remove aliases from an object. If the object is a valid player, space and commas will be assumed to be separations between unwanted aliases. Otherwise, only commas will be assumed to be separations.";
"Note that @rmalias will not affect the object's name, only its aliases.";
"";
"The second form is for use by programmers, to remove aliases from a verb they own. All spaces and commas are assumed to be separations between unwanted aliases.";
if (player != this)
return;
endif
set_task_perms(player);
spec = $code_utils:parse_verbref(iobjstr);
if (spec)
object = player:my_match_object(spec[1]);
if (!$command_utils:object_match_failed(object, spec[1]))
vname = spec[2];
info = verb_info(object, vname);
if (info == E_VERBNF)
player:notify("That object does not define that verb.");
elseif (typeof(info) == ERR)
player:notify(tostr(info));
else
old_aliases = $string_utils:explode(info[3]);
not_used = {};
for alias in (bad_aliases = $list_utils:remove_duplicates($string_utils:explode(strsub(dobjstr, ",", " "))))
if (!(alias in old_aliases))
not_used = {@not_used, alias};
bad_aliases = setremove(bad_aliases, alias);
else
old_aliases = setremove(old_aliases, alias);
endif
endfor
if (not_used)
player:notify(tostr(object.name, "(", object, "):", vname, " does not have the alias", (length(not_used) > 1) ? "es" | "", " ", $string_utils:english_list(not_used), "."));
endif
if (bad_aliases && old_aliases)
info = listset(info, aliases = $string_utils:from_list(old_aliases, " "), 3);
player:notify(tostr(object.name, "(", object, ") does not have the alias", (length(not_used) > 1) ? "es" | "", " ", $string_utils:english_list(not_used), "."));
if ($command_utils:object_match_failed(what, dobjstr))
return;
endif
what:do_examine(player);
.
#6:99
"Add a feature to this player's features list. Caller must be this or have suitable permissions (this or wizardly).";
"If this is a nonprogrammer, then ask feature if it is feature_ok (that is, if it has a verb :feature_ok which returns a true value, or a property .feature_ok which is true).";
"Set linelength. Linelength must be an integer >= 10.";
"If wrap is currently off (i.e. linelength is less than 0), maintains sign. That is, this function *takes* an absolute value, and coerces the sign to be appropriate.";
"If you want to override the dwimming of wrap, pass in a second argument.";
"returns E_PERM if not allowed, E_INVARG if linelength is too low, otherwise the linelength.";
if ((caller != this) && (!$perm_utils:controls(caller_perms(), this)))
return E_PERM;
elseif (abs(len = args[1]) < 10)
return E_INVARG;
elseif (length(args) > 1)
this.linelen = len;
else
"DWIM here.";
this.linelen = ((this.linelen > 0) ? len | (-len));
return len;
endif
.
#6:120
"Set pagelength. Must be an integer >= 5, or 0 to turn pagelength off.";
"Returns E_PERM if you shouldn't be doing this, E_INVARG if it's too low, otherwise, what it got set to.";
if ((caller != this) && (!$perm_utils:controls(caller_perms(), this)))
return E_PERM;
elseif (((len = args[1]) < 5) && (len != 0))
return E_INVARG;
else
return this.pagelen = len;
endif
.
#6:121
"set_home(newhome) attempts to change this.home to newhome";
"E_TYPE if newhome doesn't have a callable :accept_for_abode verb.";
"E_INVARG if newhome won't accept you as a resident.";
"E_PERM if you don't own this and aren't its parent.";
"1 if it works.";
newhome = args[1];
if ((caller == this) || $perm_utils:controls(caller_perms(), this))
if ($object_utils:has_callable_verb(newhome, "accept_for_abode"))
if (!$command_utils:yes_or_no(tostr("If you continue, your password will be changed, the new password mailed to `", email, "'. Do you want to continue?")))
return who:notify("Registration terminated.");
endif
password = $wiz_utils:random_password(5);
old = (who.email_address || "[ unregistered ]");
who:notify(tostr("Registering you, and changing your password and mailing new one to ", email, "."));
result = $network:sendmail(email, tostr("Your ", $network.MOO_Name, " character, ", who.name), "Reply-to: " + $login.registration_address, @$generic_editor:fill_string(tostr("Your ", $network.MOO_name, " character, ", $string_utils:nn(who), " has been registered to this email address (", email, "), and a new password assigned. The new password is `", password, "'. Please keep your password secure. You can change your password with the @password command."), 75));
if (result != 0)
who:notify(tostr("Mail sending did not work: ", reason, ". Reregistration terminated."));
return;
endif
who:notify(tostr("Mail with your new password forwarded. If you do not get it, send regular email to ", $login.registration_address, " with your character name."));
"This is intended to be called only by exits, for announcing various oxxx messages. First argument is room to announce in. Second argument is as in $room:announce_all_but's first arg, who not to announce to. Rest args are what to say. If the final arg is a list, prepends all the other rest args to the first line and emits the lines separately.";
notify(player, (candidate == #-2) ? "Sorry, guest characters are not allowed from your site." | "Sorry, all of our guest characters are in use right now.");
else
if (candidate != orig_candidate)
notify(player, tostr("Okay,... ", name, " is in use. Logging you in as `", candidate.name, "'"));
line = "***************************************************************************";
notify(player, "");
notify(player, "");
notify(player, line);
notify(player, line);
notify(player, "****");
notify(player, ("**** WARNING: The server will be going down in about " + $string_utils:from_seconds(when)) + ".");
for piece in ($generic_editor:fill_string($shutdown_message, 60))
notify(player, "**** " + piece);
endfor
notify(player, "****");
notify(player, line);
notify(player, line);
notify(player, "");
notify(player, "");
endif
.
#12:10
if ($player_db.frozen)
line = "***************************************************************************";
notify(player, "");
notify(player, line);
notify(player, "***");
for piece in ($generic_editor:fill_string("The character-name matcher is currently being reloaded. This means your character name might not be recognized even though it still exists. Don't panic. You can either wait for the reload to finish or you can connect using your object number if you remember it (e.g., `connect #1234 yourpassword').", 65))
notify(player, "*** " + piece);
endfor
if (this:player_creation_enabled(player))
notify(player, "*** This also means that character creation is disabled.");
endif
notify(player, "***");
notify(player, line);
notify(player, "");
endif
.
#12:11
":_match_player(name)";
"This is the matching routine used by @connect.";
"returns either a valid player corresponding to name or $failed_match.";
name = args[1];
if (valid(candidate = $string_utils:literal_object(name)) && is_player(candidate))
return candidate;
endif
".....uncomment this to trust $player_db and have `connect' recognize aliases";
if (valid(candidate = $player_db:find_exact(name)) && is_player(candidate))
return candidate;
endif
".....uncomment this if $player_db gets hosed and you want by-name login";
". for candidate in (players())";
". if (candidate.name == name)";
". return candidate; ";
". endif ";
". endfor ";
".....";
return $failed_match;
.
#12:12
set_task_perms(caller_perms());
notify(player, args[1]);
.
#12:13
"keeps bad things from happening if someone brings this object into a room and talks to it.";
return 0;
.
#12:14
"Accepts a player object. If player creation is enabled for that player object, then return true. Otherwise, return false.";
"Default implementation checks the player's connecting host via $login:blacklisted to decide.";
this.registration_string = "Character creation is disabled.";
this.newt_registration_string = "Your character is temporarily hosed.";
this.welcome_message = {"Welcome to the LambdaCore database.", "", "Type 'connect wizard' to log in.", "", "You will probably want to change this text, which is stored in $login.welcome_message."};
"assumes ltree and rtree are at the given height.";
"merges the trees if the combined number of children is <= maxfanout";
"otherwise returns two trees where ltree is guaranteed minfanout children and rtree is guaranteed the minimum of minfanout and however many children it started with.";
if (caller != this)
return E_PERM;
endif
home = args[1];
height = args[2];
ltree = args[3];
rtree = args[4];
llen = length(lkids = home:_get(ltree[1])[2]);
rlen = length(rkids = home:_get(rtree[1])[2]);
if (height)
m = this:_smerge(home, height - 1, lkids[llen], rkids[1]);
"ltree is split after the lmax'th leaf, the righthand portion grafted onto the leftmost of the rtrees, if possible. Otherwise we create a new tree mtree, stealing from rtrees[1] if necessary.";
"decapitates single-child nodes from the top of the tree, returns new root.";
if (caller != this)
return E_PERM;
endif
if (tree = args[2])
home = args[1];
while ((n = home:_get(tree[1]))[1] && (length(n[2]) == 1))
home:_kill(tree[1]);
tree = n[2][1];
endwhile
endif
return tree;
.
#15:22
"_listfind_nth(nodelist,key) => {i,k} where i is the smallest i such that the sum of the first i elements of intlist is > key, and k==key - sum(first i-1 elements).";
"Prints a list of headers of messages on this to player. msg_seq is the handle returned by this:parse_message_seq(...). cur is the player's current message. last_read_date is the date of the last of the already-read messages.";
"Prints the indicated messages on folder to player. msg_seq is the handle returned by folder:parse_message_seq(...). Returns the number of the final message in the sequence (to be the new current message number).";
"space(len,fill) returns a string of length abs(len) consisting of copies of fill. If len is negative, fill is anchored on the right instead of the left.";
"columnize (items, n [, width]) - Turn a one-column list of items into an n-column list. 'width' is the last character position that may be occupied; it defaults to a standard screen width. Example: To tell the player a list of numbers in three columns, do 'player:tell_lines ($string_utils:columnize ({1, 2, 3, 4, 5, 6, 7}, 3));'.";
result = listappend(result, line[1..min(length(line), width)]);
endfor
return result;
.
#20:5
"$string_utils:from_list(list [, separator])";
"Return a string being the concatenation of the string representations of the elements of LIST, each pair separated by the string SEPARATOR, which defaults to the empty string.";
LIST = args[1];
if (length(args) <= 1)
return tostr(@LIST);
elseif (LIST)
separator = args[2];
result = tostr(LIST[1]);
for elt in (listdelete(LIST, 1))
result = tostr(result, separator, elt);
endfor
return result;
else
return "";
endif
.
#20:6
"Prints the argument (must be a list) as an english list, e.g. {1, 2, 3} is printed as \"1, 2, and 3\", and {1, 2} is printed as \"1 and 2\".";
"Optional arguments are treated as follows:";
" Second argument is the string to use when the empty list is given. The default is \"nothing\".";
" Third argument is the string to use in place of \" and \". A typical application might be to use \" or \" instead.";
" Fourth argument is the string to use instead of a comma (and space). Gary_Severn's deranged mind actually came up with an application for this. You can ask him.";
" Fifth argument is a string to use after the penultimate element before the \" and \". The default is to have a comma without a space.";
things = args[1];
nthings = length(things);
if (length(args) > 1)
nothingstr = args[2];
else
nothingstr = "nothing";
endif
if (length(args) > 2)
andstr = args[3];
else
andstr = " and ";
endif
if (length(args) > 3)
commastr = args[4];
else
commastr = ", ";
endif
if (length(args) > 4)
finalcommastr = args[5];
else
finalcommastr = ",";
endif
if (nthings == 0)
return nothingstr;
elseif (nthings == 1)
return tostr(things[1]);
elseif (nthings == 2)
return tostr(things[1], andstr, things[2]);
else
ret = "";
for k in [1..nthings - 1]
if (k == (nthings - 1))
commastr = finalcommastr;
endif
ret = tostr(ret, things[k], commastr);
endfor
return tostr(ret, andstr, things[nthings]);
endif
.
#20:7
"Return a string of the names and object numbers of the objects in a list.";
":trim (string [, space]) -- remove leading and trailing spaces";
"";
"`space' should be a character (single-character string); it defaults to \" \". Returns a copy of string with all leading and trailing copies of that character removed. For example, $string_utils:trim(\"***foo***\", \"*\") => \"foo\".";
string = args[1];
space = {@args, " "}[2];
m = match(string, tostr("[^", space, "]%(.*[^", space, "]%)?%|$"));
return string[m[1]..m[2]];
.
#20:10
":triml(string [, space]) -- remove leading spaces";
"";
"`space' should be a character (single-character string); it defaults to \" \". Returns a copy of string with all leading copies of that character removed. For example, $string_utils:triml(\"***foo***\", \"*\") => \"foo***\".";
"`space' should be a character (single-character string); it defaults to \" \". Returns a copy of string with all trailing copies of that character removed. For example, $string_utils:trimr(\"***foo***\", \"*\") => \"***foo\".";
"Each obj-list should be a list of objects or a single object, which is treated as if it were a list of that object. Each prop-name should be string naming a property on every object in the corresponding obj-list. The value of that property in each case should be either a string or a list of strings.";
"The argument string is matched against all of the strings in the property values.";
"If it exactly matches exactly one of them, the object containing that property is returned. If it exactly matches more than one of them, $ambiguous_match is returned.";
"If there are no exact matches, then partial matches are considered, ones in which the given string is a prefix of some property string. Again, if exactly one match is found, the object with that property is returned, and if there is more than one match, $ambiguous_match is returned.";
"Finally, if there are no exact or partial matches, then $failed_match is returned.";
subject = args[1];
if (subject == "")
return $nothing;
endif
no_exact_match = (no_partial_match = 1);
for i in [1..length(args) / 2]
prop_name = args[(2 * i) + 1];
for object in ((typeof(olist = args[2 * i]) == LIST) ? olist | {olist})
if (valid(object))
if (typeof(str_list = object.(prop_name)) != LIST)
"Returns the object matching the given string for someone, on the assumption that s/he is in the given location. `someone' defaults to player.";
"This first tries :literal_object(string), \"me\"=>someone,\"here\"=>location, then player:match(string) and finally location:match(string) if location is valid.";
"This is the default algorithm for use by room :match_object() and player :my_match_object() verbs. Player verbs that are calling this directly should probably be calling :my_match_object instead.";
string = args[1];
here = args[2];
who = {@args, player}[3];
if ($failed_match != (object = this:literal_object(string)))
"astr is a valid literal object number of some player, so we are done.";
else
aobj = $player_db:find(astr);
endif
found = {@found, aobj};
endfor
return retstr ? found[1] | found;
.
#20:21
"Accepts any number of strings, attempts to match those strings first against objects in the room, and if no objects by those names exist, matches against player names (and \"#xxxx\" style strings regardless of location). Returns a list of valid objects so found.";
"Unlike $string_utils:match_player, does not include in the list the failed and ambiguous matches; instead has built-in error messages for such objects. This should probably be improved. Volunteers?";
if (!args)
return;
endif
unknowns = {};
objs = {};
"We have to do something icky here. Parallel walk the victims and args lists. When it's a valid object, then it's a player. If it's an invalid object, try to get an object match from the room. If *that* fails, complain.";
for i in [1..length(args)]
if (valid(o = player.location:match_object(args[i])))
objs = {@objs, o};
else
unknowns = {@unknowns, args[i]};
endif
endfor
victims = $string_utils:match_player(unknowns);
for i in [1..length(victims)]
if (!valid(victims[i]))
player:tell("Could not find ", unknowns[i], " as either an object or a player.");
else
objs = {@objs, victims[i]};
endif
endfor
return objs;
.
#20:22
"find_prefix(prefix, string-list) => list index of something starting with prefix, or 0 or $ambiguous_match.";
subject = args[1];
choices = args[2];
answer = 0;
for i in [1..length(choices)]
if (index(choices[i], subject) == 1)
if (answer == 0)
answer = i;
else
answer = $ambiguous_match;
endif
endif
endfor
return answer;
.
#20:23
"index_delimited(string,target[,case_matters]) is just like the corresponding call to the builtin index() but instead only matches on occurences of target delimited by word boundaries (i.e., not preceded or followed by an alphanumeric)";
"Converts N to a string, inserting commas (or copies of SEP_CHAR, if given) every three digits, counting from the right. For example, $string_utils:group_number(1234567890) returns the string \"1,234,567,890\".";
n = args[1];
comma = ((length(args) > 1) ? args[2] | ",");
result = "";
sign = ((n < 0) ? "-" | "");
n = tostr(abs(n));
while ((len = length(n)) > 3)
result = ((comma + n[len - 2..len]) + result);
n = n[1..len - 3];
endwhile
return (sign + n) + result;
.
#20:27
"$string_utils:english_number(n) -- convert the number N into English";
"";
"Produces a string containing the English phrase naming the given number. For example, $string_utils:english_number(-1234) returns the string `negative one thousand two hundred thirty-four'.";
" => returns string with all instances of the strings redex<n> replaced respectively by the strings repl<n>. If the optional argument `case' is given and nonzero, the search for instances of redex<n> is case sensitive.";
" Substitutions are done in parallel, i.e., instances of redex<n> that appear in any of the replacement strings are ignored. In the event that two redexes overlap, whichever is leftmost in `string' takes precedence. For two redexes beginning at the same position, the longer one takes precedence.";
"Just like :substitute() but it uses index_delimited() instead of index()";
if (typeof(ostr = args[1]) != STR)
return ostr;
endif
case = {@args, 0}[3];
len = length(ostr);
" - - - find the first instance of each substitution - -";
indices = {};
substs = {};
for s in (args[2])
if (i = this:index_delimited(ostr, s[1], case))
fi = ($list_utils:find_insert(indices, i = (i - len)) - 1);
while (fi && ((indices[fi] == i) && (length(substs[fi][1]) < length(s[1]))))
"...give preference to longer redexes...";
fi = (fi - 1);
endwhile
indices = listappend(indices, i, fi);
substs = listappend(substs, s, fi);
endif
endfor
"- - - - - perform substitutions - ";
nstr = "";
while (substs)
ind = (len + indices[1]);
sub = substs[1];
indices = listdelete(indices, 1);
substs = listdelete(substs, 1);
if (ind > 0)
nstr = ((nstr + ostr[1..ind - 1]) + sub[2]);
ostr = ostr[ind + length(sub[1])..len];
len = length(ostr);
endif
if (next = this:index_delimited(ostr, sub[1], case))
fi = ($list_utils:find_insert(indices, next = (next - len)) - 1);
while (fi && ((indices[fi] == next) && (length(substs[fi][1]) < length(sub[1]))))
"...give preference to longer redexes...";
fi = (fi - 1);
endwhile
indices = listappend(indices, next, fi);
substs = listappend(substs, sub, fi);
endif
endwhile
return nstr + ostr;
.
#20:33
"cap_property(what,prop[,ucase]) returns what.(prop) but capitalized if either ucase is true or the prop name specified is capitalized.";
"If prop is blank, returns what:title().";
"If prop is bogus or otherwise irretrievable, returns the error.";
"If capitalization is indicated, we return what.(prop+\"c\") if that exists, else we capitalize what.(prop) in the usual fashion. There is a special exception for is_player(what)&&prop==\"name\" where we just return what.name if no .namec is provided --- ie., a player's .name is never capitalized in the usual fashion.";
"If args[1] is a list, calls itself on each element of the list and returns $string_utils:english_list(those results).";
set_task_perms(caller_perms());
if (typeof(what = args[1]) == LIST)
nargs = listdelete(args, 1);
result = {};
for who in (what)
result = {@result, this:_cap_property(who, @nargs)};
"Do pronoun_sub on string with the arguments given (see help";
"string_utils:pronoun_sub for more information). Return pronoun_subbed";
"<default> if the subbed string does not contain <who>.name (<who>";
"defaults to player).";
len = length(args);
who = ((len > 2) ? args[2] | player);
default = args[len];
result = this:pronoun_sub(@args[1..len - 1]);
return this:index_delimited(result, who.name) ? result | this:pronoun_sub(@{default, @args[2..len - 1]});
.
#20:36
" pronoun_quote(string) => quoted_string";
" pronoun_quote(list of strings) => list of quoted_strings";
" pronoun_quote(list of {key,string} pairs) => list of {key,quoted_string} pairs";
"";
"Here `quoted' means quoted in the sense of $string_utils:pronoun_sub, i.e., given a string X, the corresponding `quoted' string Y is such that pronoun_sub(Y) => X. For example, pronoun_quote(\"--%Spam%--\") => \"--%%Spam%%--\". This is for including literal text into a string that will eventually be pronoun_sub'ed, i.e., including it in such a way that the pronoun_sub will not expand anything in the included text.";
"";
"The 3rd form above (with {key,string} pairs) is for use with $string_utils:substitute(). If you have your own set of substitutions to be done in parallel with the pronoun substitutions, do";
new = ((new + old[1..prcnt - 1]) + ((!cp_args) ? s | ((typeof(sub = $string_utils:_cap_property(@cp_args)) != ERR) ? sub | (("%(" + tostr(sub)) + ")"))));
endif
old = old[k + 1..oldlen];
oldlen = (oldlen - k);
endwhile
return new + old;
.
#20:38
" #0.string_utils:explode(subject [, break])";
" Return a list of those substrings of subject separated by runs of break[1].";
" break defaults to space.";
if (length(args) >= 2)
break = args[2][1];
else
break = " ";
endif
subject = (args[1] + break);
parts = {};
while (subject)
if ((i = index(subject, break)) > 1)
parts = {@parts, subject[1..i - 1]};
endif
subject = subject[i + 1..length(subject)];
endwhile
return parts;
.
#20:39
"This breaks up the argument string into words, the resulting list being obtained exactly the way the command line parser obtains `args' from `argstr'.";
rest = args[1];
"...trim leading blanks...";
rest[1..match(rest, "^ *")[2]] = "";
if (!rest)
return {};
endif
quote = 0;
toklist = {};
token = "";
pattern = " +%|\\.?%|\"";
while (m = match(rest, pattern))
"... find the next occurence of a special character, either";
"... a block of spaces, a quote or a backslash escape sequence...";
"This breaks up the argument string into words, returning a list of indices into argstr corresponding to the starting points of each of the arguments.";
rest = args[1];
"... find first nonspace...";
wstart = match(rest, "[^ ]%|$")[1];
wbefore = (wstart - 1);
rest[1..wbefore] = "";
if (!rest)
return {};
endif
quote = 0;
wslist = {};
pattern = " +%|\\.?%|\"";
while (m = match(rest, pattern))
"... find the next occurence of a special character, either";
"... a block of spaces, a quote or a backslash escape sequence...";
"This mimics the action of the builtin parser, returning what the values of the builtin variables `verb', `dobj', `dobjstr', `prepstr', `iobj', `iobjstr', `args', and `argstr' would be if `player' had typed `cmd_line'. ";
"`prep' is the shortened version of the preposition found.";
"";
"`dobjset' and `iobjset' are subsets of {\"any\",\"none\"} and are used to determine possible matching verbs, i.e., the matching verb must either be on `dobj' and have verb_args[1]==\"this\" or else it has verb_args[1] in `dobjset'; likewise for `iobjset' and verb_args[3]; similarly we must have verb_args[2] in `prepset'.";
" => string with all of the regular expression special characters quoted with %";
string = args[1];
quoted = "";
while (m = rmatch(string, "[][$^.*+?].*"))
quoted = (("%" + string[m[1]..m[2]]) + quoted);
string = string[1..m[1] - 1];
endwhile
return string + quoted;
.
#20:53
"Takes the output from connection_name() and returns just the host string portion of it. Assumes you are using bsd_network style connection names.";
s = args[1];
return s[rindex(s, " ") + 1..length(s)];
.
#20:54
"This is the function that should actually be called to get the host name from a connection name. The archwizard should change _bsd so as to be calling the verb appropriate for his/her network interface.";
" assumes string starts with an expression; returns the index of the last char in expression or 0 if string appears not to be an expression. Expression ends at any character from stop_at which occurs at top level.";
"Return name and number for object. Second argument is optional separator (for those who want no space, use \"\")";
what = args[1];
sepr = ((length(args) > 1) ? args[2] | " ");
name = (valid(what) ? what.name | {"<invalid>", "$nothing", "$ambiguous_match", "$failed_match"}[1 + (what in {#-1, #-2, #-3})]);
return tostr(name, sepr, "(", what, ")");
.
#20:61
"Copied from WhiteRabbit's utilities (#4445):name_and_number_list by WhiteRabbit (#3685) Sun Dec 6 14:00:35 1992 PST";
"name_and_number_list(<list>[, @<args>])";
"<list> is a list of objects; an english list will be constructed of their names and numbers in the form \"Munchkin (#xxx)\". <args> are the same as the optional args to $string_utils:english_list.";
"Copied from string utilities (#20):columnize by Rog (#4292) Sun Dec 20 22:59:33 1992 PST";
"columnize (items, n [, width]) - Turn a one-column list of items into an n-column list. 'width' is the last character position that may be occupied; it defaults to a standard screen width. Example: To tell the player a list of numbers in three columns, do 'player:tell_lines ($string_utils:columnize ({1, 2, 3, 4, 5, 6, 7}, 3));'.";
result = listappend(result, line[1..min(length(line), width)]);
endfor
return result;
.
#20:63
":a_or_an(<noun>) => \"a\" or \"an\"";
"To accomodate personal variation (e.g., \"an historical book\"), a player can override this by having a personal a_or_an verb. If that verb returns 0 instead of a string, the standard algorithm is used.";
noun = args[1];
if ($object_utils:has_verb(player, "a_or_an") && ((custom_result = player:a_or_an(noun)) != 0))
return custom_result;
endif
if (noun in this.use_article_a)
return "a";
endif
if (noun in this.use_article_an)
return "an";
endif
a_or_an = "a";
if (noun != "")
if (index("aeiou", noun[1]))
a_or_an = "an";
"unicycle, unimplemented, union, united, unimpressed, unique";
"Uses $recycler by default; supplying really-create as 0 suppresses this.";
"Returns the object number as a list if successful, 0 if not.";
set_task_perms(caller_perms());
spec = args[1];
source = args[2];
dest = args[3];
if (length(args) > 3)
recreate_enabled = args[4];
else
recreate_enabled = 1;
endif
if (recreate_enabled)
exit = $recycler:_create($exit);
else
exit = create($exit);
endif
if (typeof(exit) == ERR)
player:tell(exit);
return;
endif
$building_utils:set_names(exit, spec);
exit.source = source;
exit.dest = dest;
source_ok = source:add_exit(exit);
dest_ok = dest:add_entrance(exit);
move(exit, $nothing);
via = $string_utils:from_value(setadd(exit.aliases, exit.name), 1);
if (source_ok)
player:tell("Exit from ", source.name, " (", source, ") to ", dest.name, " (", dest, ") via ", via, " created with id ", exit, ".");
if (!dest_ok)
player:tell("However, I couldn't add ", exit, " as a legal entrance to ", dest.name, ". You may have to get its owner, ", dest.owner.name, " to add it for you.");
endif
return {exit};
elseif (dest_ok)
player:tell("Exit to ", dest.name, " (", dest, ") via ", via, " created with id ", exit, ". However, I couldn't add ", exit, " as a legal exit from ", source.name, ". Get its owner, ", source.owner.name, " to add it for you.");
return {exit};
elseif (0)
"I considered using this for awhile. -- Lambda";
player:tell("Exit to ", dest.name, " (", dest, ") via ", via, " created with id ", exit, ". However, I couldn't add ", exit, " as EITHER a legal exit from ", source.name, " OR as a legal entrance to ", dest.name, ". Get their owners, ", source.owner.name, " and ", dest.owner.name, ", respectively, to add it for you.");
return 0;
else
if (recreate_enabled)
$recycler:_recycle(exit);
else
recycle(exit);
endif
player:tell("I couldn't add a new exit as EITHER a legal exit from ", source.name, " OR as a legal entrance to ", dest.name, ". Get their owners, ", source.owner.name, " and ", dest.owner.name, ", respectively, to add it for you.");
"Chparent any children to their grandparent instead of orphaning them horribly. Have to do the chparent with wizperms, in case the children are owned by others, so do this before set_task_perms.";
for c in (children(object))
chparent(c, parent(object));
endfor
set_task_perms(who);
if ($object_utils:has_callable_verb(object, "recycle"))
object:recycle();
endif
chparent(object, #-1);
for p in (properties(object))
delete_property(object, p);
endfor
for v in (verbs(object))
delete_verb(object, "0");
endfor
for item in (object.contents)
move(item, #-1);
endfor
chparent(object, parent);
object.name = "";
if ($object_utils:has_verb(parent, "initialize"))
object:initialize();
endif
object.r = 0;
object.f = 0;
object.w = 0;
return 1;
.
#21:3
"transfer_ownership(object, oldowner, newowner)";
"Transfer ownership of object from oldowner to newowner.";
if (!((caller == this) || caller_perms().wizard))
return E_PERM;
endif
what = args[1];
if (valid(from = args[2]) && (typeof(from.owned_objects) == LIST))
"Help facility for verbs that people have bothered to document. If the argument is a verb specification, this retrieves the code and prints any documentation lines that might be at the beginning. Returns true if the arg can actually be interpreted as a verb specification, whether or not it is a correct one.";
text = {@text, tostr(" ", $string_utils:left($code_utils.error_names[i], 15), $code_utils.error_list[i])};
endfor
return text;
.
#24:1
text = args[1];
for p in ($code_utils:prepositions())
text = {@text, tostr($string_utils:space(4), p)};
endfor
return text;
.
#26:0
":set_programmer(victim[,mail from]) => 1 or error.";
"Sets victim.programmer, chparents victim to $prog if necessary, and sends mail to $new_prog_log, mail is from optional second arg or caller_perms().";
for a in (setremove(aliases = victim.aliases, name))
if (index(a, " "))
"..ignore ..";
elseif ($player_db:available(a) in {this, 1})
$player_db:insert(a, victim);
else
aliases = setremove(aliases, a);
endif
endfor
victim.aliases = setadd(aliases, name);
return 1;
endif
.
#26:2
":set_owner(object,newowner[,suspendok]) does object.owner=newowner, taking care of c properties as well. This should be used anyplace one is contemplating doing object.owner=newowner, since the latter leaves ownership of c properties unchanged. (--Rog thinks this is a server bug).";
":set_property_owner(object,prop,newowner[,suspendok]) changes the ownership of object.prop to newowner. If the property is !c, changes the ownership on all of the descendents as well. Otherwise, we just chown the property on the object itself and give a warning if newowner!=object.owner (--Rog thinks this is a server bug that one is able to do this at all...).";
"Reset victim's player flag, chown victim to newowner (if given), remove all of victim's names and aliases from $player_db.";
if (!caller_perms().wizard)
return E_PERM;
elseif (!valid(victim = args[1]))
return E_INVARG;
elseif (!is_player(victim))
return E_NONE;
endif
if (length(args) >= 2)
$wiz_utils:set_owner(victim, args[2]);
endif
victim.programmer = 0;
victim.wizard = 0;
set_player_flag(victim, 0);
if ($player_db.frozen)
player:tell("Warning: player_db is in the middle of a :load().");
endif
$player_db:delete2(victim.name, victim);
for a in (victim.aliases)
$player_db:delete2(a, victim);
endfor
return 1;
.
#26:5
":set_property_flags(object,prop,flags[,suspendok]) changes the permissions on object.prop to flags. Unlike a mere set_property_info, this changes the flags on all descendant objects as well. We also change the ownership on the descendent properties where necessary.";
object = args[1];
pname = args[2];
flags = args[3];
suspendok = {@args, 0}[4];
perms = caller_perms();
if (!(info = property_info(object, pname)))
"... handles E_PROPNF and invalid object errors...";
"Generate a random password of length args[1]. Alternates vowels and consonants, for maximum pronounceability. Uses its own list of consonants which exclude F and C and K to prevent generating obscene sounding passwords.";
vowels = "aeiouy";
consonants = "bdghjlmnpqrstvwxz";
len = tonum(args[1]);
if (len)
alt = (random(2) - 1);
s = "";
for i in [1..len]
s = (s + (alt ? vowels[random(6)] | consonants[random(17)]));
alt = (!alt);
endfor
return s;
else
return E_INVARG;
endif
.
#26:8
":queued_tasks(player) => list of queued tasks for that player.";
"shouldn't the server builtin should work this way? oh well";
set_task_perms(caller_perms());
if (typeof(e = set_task_perms(who = args[1])) == ERR)
return e;
elseif (who.wizard)
tasks = {};
for t in (queued_tasks())
if (t[5] == who)
tasks = {@tasks, t};
endif
endfor
return tasks;
else
return queued_tasks();
endif
.
#26:10
"Return 1 if args[1] is a newted player. 0 if not, or if some error. Maybe should do better in the error case. Feel free :-)";
"@net-who from hoststring prints all players who have connected from that host or host substring. Substring can include *'s, e.g. @net-who from *.foo.edu.";
if (!caller_perms().wizard)
return E_PERM;
endif
tellwho = args[1];
su = $string_utils;
if (!index(where = args[2], "*"))
"Oh good... search for users from a site... the fast way. No wild cards.";
if ((connection[length(connection) - 2..length(connection)] == ".uk") && (parsed[2][1..3] == "uk."))
return tostr("Addresses must be in internet form. Try ", parsed[1], "@", $string_utils:from_list($list_utils:reverse($string_utils:explode(parsed[2], ".")), "."), ".");
elseif (match(connection, "^[0-9.]+$"))
return "-The system cannot resolve the name of the system you're connected from.";
msg = {@msg, tostr("A character has been created, with name \"", name, "\" and password \"", password, "\". (Passwords are case sensitive.)")};
msg = {@msg, tostr($network.moo_name, " is at ", $network.site, ", port ", $network.port, ".")};
msg = {@msg, "Read the help if you haven't used MOO before. A tutorial available through the @tutorial command. Try paging the character HELP if you can't find what you need in the help system or tutorial."};
msg = {@msg, "A programmer's manual and various other pieces of documentation are available via ftp from ", " parcftp.xerox.com, directory /pub/MOO"};
msg = {@msg, "Keep your password secure; do not let anyone else connect as you. Remember, you are responsible for what your character does. If you no longer want your character, do not give it to anyone else. You can change your password after you connect with the @password command."};
msg = {@msg, "After you connect, type `help manners' in order to see the policy on the code of conduct expected."};
if ($command_utils:player_match_failed(who, whostr))
return;
endif
if (((whostr != who.name) && (!(whostr in who.aliases))) && (whostr != tostr(who)))
player:notify(tostr("Must be a full name or an object number: ", who.name, "(", who, ")"));
return;
endif
if (reason = $network:invalid_email_address(email))
player:notify(reason);
if (!$command_utils:yes_or_no("Register anyway?"))
return player:notify("re-registration aborted.");
endif
endif
if (comments)
$registration_db:add(who, email, comments);
else
$registration_db:add(who, email);
endif
old = who.email_address;
who.email_address = email;
player:notify(tostr(who.name, " (", who, ") formerly ", old ? old | "unregistered", ", registered at ", email, ". ", comments ? (" [" + comments) + "]" | ""));
.
#26:27
"do_new_password(who, [password])";
if (!caller_perms().wizard)
return E_PERM;
endif
whostr = args[1];
who = $string_utils:match_player(whostr);
if ($command_utils:player_match_failed(who, whostr))
return;
endif
if (((whostr != who.name) && (!(whostr in who.aliases))) && (whostr != tostr(who)))
player:notify(tostr("Must be a full name or an object number: ", who.name, "(", who, ")"));
return;
endif
whostr = $string_utils:nn(who);
player:notify(tostr("About to change password for ", whostr, ". Old encrypted password is \"", who.password, "\""));
if ((length(args) > 1) && (password = args[2]))
password = args[2];
else
password = $wiz_utils:random_password(5);
endif
who.password = crypt(password);
player:notify(tostr(whostr, " new password is `", password, "'."));
if (!who.email_address)
player:notify(tostr(whostr, " doesn't have a registered email_address, cannot mail password; tell them some some other way."));
elseif ($command_utils:yes_or_no(tostr("Email new password to ", whostr, "?")))
player:notify("Sending the password via email.");
if ((result = $network:sendmail(who.email_address, ("Your " + $network.moo_name) + " password", ("The password for your " + $network.moo_name) + " character:", " " + whostr, "has been changed. The new password is:", " " + password, "", "Please note that passwords are case sensitive.")) == 0)
player:tell("Sorry, but guest characters are not allowed to change their passwords.");
.
#33:1
if (!caller_perms().wizard)
return;
endif
player = this;
this:notify(tostr("Sorry, but you've been here for ", $string_utils:from_seconds(connected_seconds(this)), " and someone else wants to be a guest now. Feel free to come back", @$login:player_creation_enabled(player) ? {" or even create your own character if you want..."} | ($login.registration_address ? {" or send mail to ", $login.registration_address, " to obtain a character of your own."} | {"."})));
fork (0)
oldloc = this.location;
move(this, #-1);
move(this, this.home);
"..force enterfunc to be called so that the newbie gets a room description.";
if ($object_utils:isa(oldloc, $room))
oldloc:announce("In the distance you hear someone's alarm clock going off.");
if (oldloc != this.location)
oldloc:announce(this.name, " wavers and vanishes into insubstantial mist.");
else
oldloc:announce(this.name, " undergoes a wrenching personality shift.");
endif
endif
endfork
.
#33:2
this:log_disconnect();
fork (0)
if (this.location != this.home)
this:room_announce("The housekeeper arrives to remove ", this.name, ".");
move(this, this.home);
endif
for x in ({"paranoid", "lines", "responsible", "linelen", "linebuffer", "brief", "gaglist", "rooms", "pagelen", "current_message", "current_folder", "messages", "request"})
if ($object_utils:has_property($guest, x))
clear_property(this, x);
endif
endfor
this:set_description(this.default_description);
this:set_gender(this.default_gender);
for x in (this.contents)
this:eject(x);
endfor
for x in (this.features)
this:remove_feature(x);
endfor
this:clear_refusals();
for x in ($object_utils:descendants($generic_editor))
if (loc = (this in x.active))
x:kill_session(loc);
endif
endfor
endfork
pass(@args);
.
#33:3
"Called by #0:connect_player when this object is about to be used as the next guest character. Usually returns `this', but if for some reason some other guest character should be used, that player object is returned instead";
if (!caller_perms().wizard)
"...caller is not :do_login_command; doesn't matter what we return...";
reason = (reason + " Please try again, or, to register another way, ");
endif
player:tell(reason, " mail to ", $login.registration_address, " with the character name you want.");
return;
endif
while (typeof(answer = $command_utils:yes_or_no(("Generally, only one character per real person is allowed. For more details, read `help multiple-characters'. Do you already have (or have you already requested) a " + $network.moo_name) + " character?")) == ERR)
player:tell("Request for new character ", name, " email address '", address, "' accepted. Please be patient until the registrar gets around to it. If you don't get email within a week, please send regular email to ", $login.registration_address, ".");
elseif ($player_db.frozen)
player:tell("Sorry, can't create any new players right now. Try again in a few minutes.");
else
new = $wiz_utils:make_player(name, address);
password = new[2];
new = new[1];
player:tell("Character ", name, " (", new, ") created, mailing password to ", address, "; you should get the mail very soon.");
player:tell("If you do not get it, please do NOT request another character. Send regular email to ", $login.registration_address, ", with the name of the character you requested.");
$mail_agent:send_message($new_player_log.autoregistration_player, $new_player_log, tostr(name, " (", new, ")"), {address, (" Automatically created at request of player from " + connection) + "."});
$wiz_utils:send_new_player_mail(tostr("A guest connected from ", connection, " at ", ctime(), " requested a character on ", $network.moo_name, " for email address ", address, "."), name, address, new, password);
this.request = 1;
return;
endif
.
#33:16
if (caller_perms().wizard)
this.extra_confunc_msg = "";
endif
.
#33:17
"disallow guests from setting aliases on themselves";
if ($perm_utils:controls(caller_perms(), this))
return pass(@args);
else
return E_PERM;
endif
.
#35:0
" add(seq,start,end) => seq with range added.";
"remove(seq,start,end) => seq with range removed.";
" for sequences consisting of more than half of the 4294967298 available integers, this returns a negative number, which can either be interpreted as (cardinality - 4294967298) or -(size of complement sequence)";
n = 0;
for i in (seq = args[1])
n = (i - n);
endfor
return (length(seq) % 2) ? $minint - n | n;
.
#35:13
":from_string(string) => corresponding sequence or E_INVARG";
" string should be a comma separated list of numbers and";
" number..number ranges";
su = $string_utils;
if (!(words = su:explode(su:strip_chars(args[1], " "), ",")))
return {};
endif
parts = {};
for word in (words)
to = index(word, "..");
if ((!to) && su:is_numeric(word))
part = {tonum(word), tonum(word) + 1};
elseif (to)
if (to == 1)
start = $minint;
elseif (su:is_numeric(start = word[1..to - 1]))
start = tonum(start);
else
return E_INVARG;
endif
end = word[to + 2..length(word)];
if (!end)
part = {start};
elseif (!su:is_numeric(end))
return E_INVARG;
elseif ((end = tonum(end)) >= start)
part = {start, end + 1};
else
part = {};
endif
else
return E_INVARG;
endif
parts = {@parts, part};
endfor
return this:union(@parts);
.
#35:14
":firstn(seq,n) => first n elements of seq as a sequence.";
if ((n = args[2]) <= 0)
return {};
endif
l = length(seq = args[1]);
s = 1;
while (s <= l)
n = (n + seq[s]);
if ((s >= l) || (n <= seq[s + 1]))
return {@seq[1..s], n};
endif
n = (n - seq[s + 1]);
s = (s + 2);
endwhile
return seq;
.
#35:15
":lastn(seq,n) => last n elements of seq as a sequence.";
n = args[2];
if ((l = length(seq = args[1])) % 2)
return {$minint - n};
else
s = l;
while (s)
n = (seq[s] - n);
if (n >= seq[s - 1])
return {n, @seq[s..l]};
endif
n = (seq[s - 1] - n);
s = (s - 2);
endwhile
return seq;
endif
.
#35:16
":range(start,end) => sequence corresponding to [start..end] range";
"find(string[,n]) => datum corresponding to string with the search starting at node \" \"+string[1..n], n defaults to 0 (root node), $ambiguous_match or $failed_match";
"find_key(string[,n]) is like :find but returns the full string key rather than the associated datum. Note that if several string keys present in the db share a common prefix, :find_key(prefix) will return $ambiguous_match, but if there is a unique datum associated with all of these strings :find(prefix) will return it rather than $ambiguous_match.";
"Assumes n<=length(string)";
rest = (search = args[1]);
sofar = {@args, 0}[2];
prefix = search[1..sofar];
rest[1..sofar] = "";
info = this.(" " + prefix);
data = ((verb == "find") ? this.data | 3);
if (i = (search in info[3]))
"...exact match for one of the strings in this node...";
return info[data][i];
elseif (index(info[1], rest) == 1)
"...ambiguous iff there's more than one object represented in this node..";
return this:_only(prefix, data);
elseif (index(rest, info[1]) != 1)
"...search string doesn't agree with common portion...";
"... new string matches pre-existing continuation. insert in subnode....";
return this:insert(nsofar, search, datum);
else
"... new string may blow away one of the exact matches (i.e., matches one of them up to the first character beyond the common portion) in which case we need to create a new subnode....";
s = search[1..nsofar];
for m in (info[3])
if (index(m, s) == 1)
i = (m in info[3]);
"... we know m != search ...";
"... string m has been blown away. create new node ...";
"... new string hasn't blown away any of the exact matches, insert it as a new exact match...";
info[3] = {search, @info[3]};
if (has_datum)
info[this.data] = {datum, @info[this.data]};
endif
this:set_node(prefix, @info);
return 0;
endif
.
#39:7
":delete(string[,n]) deletes any <string,something> pair from the tree starting at node \" \"+string[1..n], n defaulting to 0 (root node)";
"Returns {something} if such a pair existed, otherwise returns 0";
"If that node is not the root node and ends up containing only one string and no subnodes, we kill it and return {something,string2,something2} where <string2,something2> is the remaining pair.";
if (!($perm_utils:controls(caller_perms(), this) || (caller == this)))
" reports on the number of distinct string keys or the number of characters";
" in all string keys in the db";
if (index("entries", dobjstr) == 1)
player:tell(this:count_entries("", 0), " strings in ", this.name, "(", this, ")");
elseif (index("chars", dobjstr) == 1)
player:tell(this:count_chars("", 0), " chars in ", this.name, "(", this, ")");
else
player:tell("Usage: ", verb, " entries|chars in <db>");
endif
.
#40:0
"eval(code)";
"Evaluate code with $no_one's permissions (so you won't damage anything).";
"If code does not begin with a semicolon, set this = caller (in the code to be evaluated) and return the value of the first `line' of code. This means that subsequent lines will not be evaluated at all.";
"If code begins with a semicolon, set this = caller and let the code decide for itself when to return a value. This is how to do multi-line evals.";
"exactly like :eval except that the d flag is unset";
"Evaluate code with $no_one's permissions (so you won't damage anything).";
"If code does not begin with a semicolon, set this = caller (in the code to be evaluated) and return the value of the first `line' of code. This means that subsequent lines will not be evaluated at all.";
"If code begins with a semicolon, set this = caller and let the code decide for itself when to return a value. This is how to do multi-line evals.";
"Call verb with $no_one's permissions (so you won't damage anything).";
"One could do this with $no_one:eval, but ick.";
set_task_perms(this);
return args[1]:(args[2])(@args[3]);
.
#41:0
":load() -- reloads the player_db with the names of all existing players.";
"This routine calls suspend() if it runs out of time.";
".frozen is set to 1 while the load is in progress so that other routines are warned and don't try to do any updates. Sometimes, an update is unavoidable (e.g., player gets recycled) in which case the offending routine should set .frozen to 2, causing the load to start over at the beginning.";
if ((caller != this) && (!$perm_utils:controls(caller_perms(), this)))
return E_PERM;
endif
this:clearall();
this.frozen = 1;
for p in (players())
this:suspend_restart(p);
"... note that if a player is recycled or toaded during the suspension,...";
"... it won't be removed from the for loop iteration; thus this test: ";
if (valid(p) && is_player(p))
if (typeof(po = this:find_exact(p.name)) == ERR)
player:tell(p.name, ": ", po);
return;
elseif (po != p)
if (valid(po) && is_player(po))
player:tell("name `", p.name, "' for ", p, " subsumes alias for ", po.name, "(", po, ").");
endif
this:insert(p.name, p);
endif
for a in (p.aliases)
this:suspend_restart(p);
if (index(a, " "))
"don't bother";
elseif (typeof(ao = this:find_exact(a)) == ERR)
player:tell(a, ": ", ao);
return;
elseif (!(valid(ao) && is_player(ao)))
this:insert(a, p);
elseif (ao != p)
player:tell("alias `", a, "' for ", p.name, "(", p, ") used by ", ao.name, "(", ao, ").");
endif
endfor
endif
endfor
this.frozen = 0;
.
#41:1
":check() -- checks for recycled and toaded players that managed not to get expunged from the db.";
for p in (properties($player_db))
if ((ticks_left() < 500) || (seconds_left() < 2))
player:tell("...", p);
suspend(0);
endif
if (p[1] == " ")
nlist = this.(p)[3];
olist = this.(p)[4];
for i in [1..length(nlist)]
if (valid(olist[i]) && (is_player(olist[i]) && (nlist[i] in olist[i].aliases)))
"permstring is a permissions string, mods is a concatenation of strings of the form +<letters>, !<letters>, or -<letters>, where <letters> is a string of letters as might appear in a permissions string (`+' adds the specified permissions, `-' or `!' removes them; `-' and `!' are entirely equivalent).";
perms = args[1];
mods = args[2];
if ((!mods) || (!index("!-+", mods[1])))
return mods;
endif
i = 1;
while (i <= length(mods))
if (mods[i] == "+")
while (((i = (i + 1)) <= length(mods)) && (!index("!-+", mods[i])))
if (!index(perms, mods[i]))
perms = (perms + mods[i]);
endif
endwhile
else
"mods[i] must be ! or -";
while (((i = (i + 1)) <= length(mods)) && (!index("!-+", mods[i])))
"$gender_utils:set(object,gender) --- sets the pronoun properties of object.";
"gender is a string: one of the strings in $gender_utils.genders, the list of rcognized genders. If the gender change is successful, the (full) name of the gender (e.g., \"male\") is returned. E_NONE is returned if gender does not match any recognized gender. Any other error encountered (e.g., E_PERM, E_PROPNF) is likewise returned and the object's pronoun properties are left unaltered.";
if ((!e) && (ERR == typeof(e = this:set(object, "neuter"))))
player:tell("Couldn't initialize pronouns: ", e);
endif
.
#43:2
"get_pronoun(key,object) => pronoun corresponding to object.";
"key can be one of s,o,p,q,r,S,O,P,Q,R to refer to the pronoun properties relatively directly or it can be something of the form \"he/she\" or \"He/She\".";
"Next the object is checked for the desired pronoun property. If that doesn't exist, we look at object.gender and infer the pronoun from the corresponding $gender_utils property. If .gender doesn't exist or the object itself is invalid, we use the corresponding property on $player.";
key = args[1];
if (key[1] == ":")
key = key[2..length(key)];
endif
if ((length(key) == 1) && (i = index("sopqrSOPQR", key, 1)))
if (!valid(object = ((length(args) >= 2) ? args[2] | player)))
return $player.(prop);
elseif (STR == typeof(p = object.(prop)))
return p;
elseif ((STR == typeof(g = object.gender)) && (i = (g in this.genders)))
return this.(prop)[i];
else
return $player.(prop);
endif
.
#43:3
"get_conj(verbspec,object) => verb conjugated according to object.";
"verbspec can be one of \"singular/plural\", \"singular\", \"singular/\", or \"/plural\", e.g., \"is/are\", \"is\", \"is/\", or \"/are\".";
"The object is checked to see whether it is singular or plural. This is inferred from its .gender property. If .gender doesn't exist or the object itself is invalid, we assume singular.";
spec = args[1];
i = index(spec + "/", "/");
sing = spec[1..i - 1];
if (i < length(spec))
plur = spec[i + 1..length(spec)];
else
plur = "";
endif
cap = (strcmp("a", (i == 1) ? spec[2] | spec) > 0);
if (((valid(object = ((length(args) >= 2) ? args[2] | player)) && (STR == typeof(g = object.gender))) && (i = (g in this.genders))) && this.is_plural[i])
"Given a string such as returned by ctime(), return the corresponding time-in-seconds-since-1970 time returned by time(), or E_DIV if the format is wrong in some essential way.";
words = $string_utils:explode(args[1]);
if (length(words) == 5)
"Arrgh! the old ctime() didn't return a time zone, yet it arbitrarily decides whether it's standard or daylight savings time. URK!!!!!";
"numeric time (seconds since 1970) corresponding to midnight (PST) of the given weekday. Use either the name of the day or a 1..7 number (1==Sunday,...)";
" which==-1 => use most recent such day.";
" which==+1 => use first upcoming such day.";
" which==0 => use closest such day.";
"larger (absolute) values for which specify a certain number of weeks into the future or past.";
if (!(tonum(day = args[1]) || (day = $string_utils:find_prefix(day, this.days))))
time = ((time / 604800) + ((dir > 0) ? dir | (dir + 1)));
else
time = ((time + 302400) / 604800);
endif
return (time * 604800) + delta;
.
#44:9
"from_month(month,which[,d])";
"numeric time (seconds since 1970) corresponding to midnight (PST) of the dth (first) day of the given month. Use either the month name or a 1..12 number (1==January,...)";
" which==-1 => use most recent such month.";
" which==+1 => use first upcoming such month.";
" which==0 => use closest such month.";
"larger (absolute) values for which specify a certain number of years into the future or past.";
if (!(tonum(month = args[1]) || (month = $string_utils:find_prefix(month, this.months))))
"Copied from Archer (#52775):mmddyy Tue Apr 6 17:04:26 1993 PDT";
"Given a time() or ctime()-style date and an optional separator, this returns the MM/DD/YY or DD/MM/YY form of the date (depending on the verb called.) The default seperator is '/'";
"Copied from Ballroom Complex (#29992):seconds_until by Keelah! (#30246) Tue Jul 13 19:42:37 1993 PDT";
":seconds_until_time(hh:mm:ss)";
"Given the string hh:mm:ss, this returns the number of seconds until that hh:mm:ss. If the hh:mm:ss is before the current time(), the number returned is a negative, else the number is a positive.";
"Written by Keelah, on July 4, 1993.";
current = $time_utils:to_seconds(ctime()[12..19]);
time = $time_utils:to_seconds(args[1]);
return tonum(time) - tonum(current);
.
#46:0
"For changing mailing list aliases, we check to make sure that none of the aliases match existing mailing list aliases. Aliases containing spaces are not used in addresses and so are not subject to this restriction ($mail_agent:match will not match on them, however, so they only match if used in the immediate room, e.g., with match_object() or somesuch).";
" => E_PERM if you don't own this";
if (!$perm_utils:controls(caller_perms(), this))
return E_PERM;
elseif (this.location != $mail_agent)
"... we don't care...";
return pass(@args);
else
for a in (aliases = args[1])
if (index(a, " "))
"... we don't care...";
elseif (rp = $mail_agent:reserved_pattern(a))
player:tell("Mailing list name \"", a, "\" uses a reserved pattern: ", rp[1]);
aliases = setremove(aliases, a);
elseif (valid(p = $mail_agent:match(a, #-1)) && ((p != this) && (a in p.aliases)))
player:tell("Mailing list name \"", a, "\" in use on ", p.name, "(", p, ")");
":add_forward(recip[,recip...]) adds new recipients to this list. Returns a string error message or a list of results (recip => success, E_PERM => not allowed, E_INVARG => not a valid recipient, string => other kind of failure)";
if (caller == $mail_editor)
perms = player;
else
perms = caller_perms();
endif
result = {};
forward_self = ((!this.mail_forward) || (this in this.mail_forward));
for recip in (args)
if ((!valid(recip)) || ((!is_player(recip)) && (!($mail_recipient in $object_utils:ancestors(recip)))))
":add_notify(recip[,recip...]) adds new notifiees to this list. Returns a list of results (recip => success, E_PERM => not allowed, E_INVARG => not a valid recipient)";
":own_messages_filter(who,msg_seq) => subsequence of msg_seq consisting of those messages that <who> is actually allowed to remove (on the assumption that <who> is not one of the allowed writers of this folder.";
"Given either an address (i.e., objectid) or a list of such, traces down all .mail_forward lists and .mail_notify to determine where a message should actually go and who should be told about it. Both forms take previous lists of recipients/notifications and add only those addresses that weren't there before. `seen' is the stack of addresses we are currently resolving (for detecting loops). The first form returns E_INVARG if `name' is invalid. The second form returns all invalid addresses in the `bogus' list but still does the appropriate search on the remaining addresses.";
recip = args[1];
from = args[2];
if (length(args) == 2)
args = {@args, {}, {}, {}};
endif
seen = args[3];
sofar = args[4..5];
if (typeof(recip) == LIST)
bogus = {};
for r in (recip)
result = this:resolve_addr(r, from, seen, @sofar);
for a in ((typeof(fwd = this:mail_forward(addr, @args[1] ? {} | {args[1]})) == LIST) ? fwd | {})
if (this:sends_to(addr, a, rcpt, seen))
return 1;
endif
$command_utils:suspend_if_needed(0);
endfor
endif
return 0;
.
#47:2
"send_message(from,rcpt-list,hdrs,msg) -- formats and sends a mail message. hders is either the text of the subject line, or a {subject,{reply-to,...}} list.";
"Return E_PERM if from isn't owned by the caller.";
"Return {0, @invalid_rcpts} if rcpt-list contains any invalid addresses. No mail is sent in this case.";
"Return {1, @actual_rcpts} if successful.";
from = args[1];
to = args[2];
hdrs = args[3];
msg = args[4];
if ($perm_utils:controls(caller_perms(), from))
text = $mail_agent:make_message(from, to, hdrs, msg);
return this:raw_send(text, to, from);
else
return E_PERM;
endif
.
#47:3
"WIZARDLY";
"raw_send(text,rcpts,sender) -- does the actual sending of a message. Assumes that text has already been formatted correctly. Decides who to send it to and who wants to be notified about it and does so.";
"Return {E_PERM} if the caller is not entitled to use this verb.";
"Return {0, @invalid_rcpts} if rcpts contains any invalid addresses. No mail is sent in this case.";
":match_recipient(string[,meobj]) => $player or $mail_recipient object that matches string. Optional second argument (defaults to player) is returned in the case string==\"me\" and is also used to obtain a list of private $mail_recipients to match against.";
string = args[1];
if (!string)
return $nothing;
elseif ((string[1] == "*") && (string != "*"))
return this:match(@args);
elseif (string[1] == "`")
args[1][1..1] = "";
return $string_utils:match_player(@args);
elseif (valid(o = $string_utils:match_player(@args)) || (o == $ambiguous_match))
return o;
else
return this:match(@args);
endif
.
#47:11
match_result = args[1];
string = args[2];
cmd_id = ({@args, ""}[3] || "");
if (match_result == $nothing)
player:tell(cmd_id, "You must specify a valid mail recipient.");
elseif (match_result == $failed_match)
player:tell(cmd_id, "There is no mail recipient called \"", string, "\".");
"Prints entire messages on folder (caller) to player. msg_seq is the handle returned by :parse_message_seq(...) and indicates which messages should be printed. preamble, if given will precede the output of the message itself, in which case the message number will be substituted for \"%d\". Returns the number of the final message in the sequence (which can be then used as the new current message number).";
"Prints a list of headers of messages on caller to player. msg_seq is the handle returned by caller:parse_message_seq(...). cur is the player's current message. last_read_date is the date of the last of the already-read messages.";
"raw_send(text,rcpts,sender) -- does the actual sending of a message. Assumes that text has already been formatted correctly. Decides who to send it to and who wants to be notified about it and does so.";
"Return {E_PERM} if the caller is not entitled to use this verb.";
"Return {0, @invalid_rcpts} if rcpts contains any invalid addresses. No mail is sent in this case.";
player:tell("Your message is now to ", this:recipient_names(who), ".");
endif
.
#48:9
"parse_recipients(prev_list,list_of_strings) -- parses list of strings and adds any resulting player objects to prev_list. Optional 3rd arg is prefixed to any mismatch error messages";
recips = args[1];
cmd_id = ({@args, ""}[3] || "");
pstrings = (mdrops = {});
for s in ((typeof(l = args[2]) == LIST) ? l | {l})
if (typeof(s) != STR)
if ($mail_agent:is_recipient(s))
mdrops = {@mdrops, s};
else
player:tell(cmd_id, s, " is not a valid mail recipient.");
player:tell(dobjstr ? ("Mail to " + $mail_agent:name_list(@recips)) + " actually goes to " | "Your mail will actually go to ", $mail_agent:name_list(@resolve[2]));
endif
.
#48:18
player:tell_lines({"Available aliases:", ""});
for c in ((dobjstr == "all") ? $object_utils:descendants($mail_recipient) | $mail_agent.contents)
if (c:is_usable_by(player) || c:is_readable_by(player))
c:look_self();
endif
endfor
.
#48:19
if (!iobjstr)
player:tell("Usage: ", verb, " [<list-of-people/lists>] to <list>");
if (player.eval_subs && player:edit_option("eval_subs"))
text = {};
for x in (this:text(who))
text = {@text, $code_utils:substitute(x, player.eval_subs)};
endfor
else
text = this:text(who);
endif
if (result = this:set_verb_code(object, vname, text))
player:tell(iobjstr, " not compiled because:");
for x in (result)
player:tell(" ", x);
endfor
elseif (typeof(result) == ERR)
player:tell({result, ("You do not have write permission on " + iobjstr) + ".", ("The verb " + iobjstr) + " does not exist (!?!)", ("The object " + tostr(object)) + " does not exist (!?!)"}[1 + (result in {E_PERM, E_VERBNF, E_INVARG})]);
if (!prepstr)
player:tell("Do 'compile as <object>:<verb>' to write your code to another verb.");
if (((insert = this.inserting[who]) > from) && (nlen > 1))
this.inserting[who] = ((insert + nlen) - 1);
endif
endif
if (fill || join)
for line in [from..(from + nlen) - 1]
this:list_line(who, line);
endfor
else
player:tell("No changes.");
endif
endif
.
#51:11
if (!(who = this:loaded(player)))
player:tell(this:nothing_loaded_msg());
return;
endif
if (typeof(e = this:set_readable(who, index("publish", verb) == 1)) == ERR)
player:tell(e);
elseif (e)
player:tell("Your text is now globally readable.");
else
player:tell("Your text is read protected.");
endif
.
#51:12
if (!(this:ok(who = (player in this.active)) && (typeof(this.texts[who]) == LIST)))
player:tell(this:nothing_loaded_msg());
else
player:tell("You are editing ", this:working_on(who), ".");
player:tell("Your insertion point is ", (this.inserting[who] > length(this.texts[who])) ? "after the last line: next line will be #" | "before line ", this.inserting[who], ".");
player:tell("You'll have to use 'home' or a teleporter.");
.
#51:15
"This catches subst and find commands that don't fit into the usual model, e.g., s/.../.../ without the space after the s, and find commands without the verb `find'. Still behaves in annoying ways (e.g., loses if the search string contains multiple whitespace), but better than before.";
"parse_number(who,string,before) interprets string as a line number. In the event that string is `.', `before' tells us which line to use. Return 0 if string is bogus.";
return tostr("from ", from, " to ", to, "? (backwards range)");
else
return {from, to, $string_utils:from_list(args[a..numargs], " ")};
endif
.
#51:35
"parse_ins(who,string) interprets string as an insertion point, i.e., a position between lines and returns the number of the following line or 0 if bogus.";
if (!(fuckup = this:ok(who = args[1])))
return fuckup;
endif
who = args[1];
last = (length(this.texts[who]) + 1);
ins = this.inserting[who];
string = args[2];
if (i = index("-+", string[1]))
rest = string[2..length(string)];
return ((n = tonum(rest)) || (rest == "0")) ? {ins - n, ins + n}[i] | E_INVARG;
else
if (!(j = (index(string, "^") || index(string, "_"))))
if (typeof(result = this:set_stateprops(prop, default)) == ERR)
player:tell((result == E_RANGE) ? tostr(".", prop, " needs to hold a list of the same length as .active (", length(this.active), ").") | ((result != E_NACC) ? result | (prop + " is already a property on an ancestral editor.")));
return {@d, "", "---- Do `help <cmdname>' for help with a given command. ----", "", " <ins> ::= $ (the end) | [^]n (above line n) | _n (below line n) | . (current)", "<range> ::= <lin> | <lin>-<lin> | from <lin> | to <lin> | from <lin> to <lin>", " <lin> ::= n | [n]$ (n from the end) | [n]_ (n before .) | [n]^ (n after .)", "`help insert' and `help ranges' describe these in detail.", @this.description};
.
#51:53
cmd = args[1];
if (pc = $list_utils:assoc(cmd, this.commands))
return pc;
elseif (this == $generic_editor)
return {cmd, "<<<<<======= Need to add this to .commands"};
else
return parent(this):commands_info(cmd);
endif
.
#51:54
who = {@args, player}[2];
objstr = args[1];
origin = this;
while ((where = (player in origin.active)) && ($recycler:valid(origin = origin.original[where]) && (origin != this)))
if (!$object_utils:isa(origin, $generic_editor))
return origin:match_object(args[1], who);
endif
endwhile
return who:my_match_object(objstr, #-1);
.
#51:55
who = args[1];
where = {#-1, @this.original}[1 + (who in this.active)];
"tries to cut <string> into substrings of length < <width> along word boundaries. Prefix, if supplied, will be prefixed to the 2nd..last substrings.";
if (length(args) < 2)
width = (2 + player:linelen());
prefix = "";
else
width = (args[2] + 1);
prefix = {@args, ""}[3];
endif
if (width < (3 + length(prefix)))
return E_INVARG;
endif
string = (("$" + args[1]) + " $");
len = length(string);
if (len <= width)
last = (len - 1);
next = len;
else
last = rindex(string[1..width], " ");
if (last < ((width + 1) / 2))
last = (width + index(string[width + 1..len], " "));
endif
next = last;
while (string[next = (next + 1)] == " ")
endwhile
endif
while (string[last = (last - 1)] == " ")
endwhile
ret = {string[2..last]};
width = (width - length(prefix));
minlast = ((width + 1) / 2);
while (next < len)
string = ("$" + string[next..len]);
len = ((len - next) + 2);
if (len <= width)
last = (len - 1);
next = len;
else
last = rindex(string[1..width], " ");
if (last < minlast)
last = (width + index(string[width + 1..len], " "));
endif
next = last;
while (string[next = (next + 1)] == " ")
endwhile
endif
while (string[last = (last - 1)] == " ")
endwhile
if (last > 1)
ret = {@ret, prefix + string[2..last]};
endif
endwhile
return ret;
.
#51:59
"This catches subst and find commands that don't fit into the usual model, e.g., s/.../.../ without the space after the s, and find commands without the verb `find'. Still behaves in annoying ways (e.g., loses if the search string contains multiple whitespace), but better than before.";
if ((caller != this) && (caller_perms() != player))
":get_room([player]) => correct room to match in on invocation.";
who = {@args, player}[1];
if (who.location != this)
return who.location;
else
origin = this;
while ((where = (player in origin.active)) && (valid(origin = origin.original[where]) && (origin != this)))
if (!$object_utils:isa(origin, $generic_editor))
return origin;
endif
endwhile
return this;
endif
.
#51:62
":invoke_local_editor(name, text, upload)";
"Spits out the magic text that invokes the local editor in the player's client.";
"NAME is a good human-readable name for the local editor to use for this particular piece of text.";
"TEXT is a string or list of strings, the initial body of the text being edited.";
"UPLOAD, a string, is a MOO command that the local editor can use to save the text when the user is done editing. The local editor is going to send that command on a line by itself, followed by the new text lines, followed by a line containing only `.'. The UPLOAD command should therefore call $command_utils:read_lines() to get the new text as a list of strings.";
"+c properties on children cannot necessarily be read, so we need this silliness...";
if (caller != this)
return E_PERM;
else
return length(this.(args[1]));
endif
.
#51:64
txt = this:text(player in this.active);
if (typeof(txt) == LIST)
player:tell_lines(txt);
else
player:tell("Text unreadable: ", txt);
endif
player:tell("--------------------------");
.
#52:0
":match(string, object-list)";
"Return object in 'object-list' aliased to 'string'.";
"Matches on a wide variety of syntax, including:";
" \"5th axe\" -- The fifth object matching \"axe\" in the object list.";
" \"where's sai\" -- The only object contained in 'where' matching \"sai\" (possible $ambiguous_match).";
" \"where's second staff\" -- The second object contained in 'where' matching \"staff\".";
" \"my third dagger\" -- The third object in your inventory matching \"dagger\".";
"Ordinal matches are determined according to the match's position in 'object-list' or, if a possessive (such as \"where\" above) is given, then the ordinal is the nth match in that object's inventory.";
"In the matching room (#3879@LambdaMOO), the 'object-list' consists of first the player's contents, then the room's, and finally all exits leading from the room.";
"$match_utils:match_verb(verbname, object) => Looks for a command-line style verb named <verbname> on <object> with current values of prepstr, dobjstr, dobj, iobjstr, and iobj. If a match is made, the verb is called and 1 is returned. Otherwise, 0 is returned.";
vrb = args[1];
what = args[2];
if (where = $object_utils:has_verb(what, vrb))
if ((vargs = verb_args(where[1], vrb)) != {"this", "none", "this"})
return {substitute("%1", m), substitute("%2", m)};
else
return 0;
endif
.
#53:0
object = args[1];
prop = args[2];
if (prop in $code_utils.builtin_props)
return valid(object);
else
return !(!property_info(object, prop));
endif
.
#53:1
what = args[1];
if (what.owner != caller_perms())
set_task_perms(caller_perms());
endif
props = (properties(what) || {});
while (valid(what = parent(what)))
props = {@properties(what) || {}, @props};
endwhile
return props;
.
#53:2
":has_verb(OBJ object, STR verbname)";
"Find out if an object has a verb matching the given verbname.";
"Returns {location} if so, 0 if not, where location is the object or the ancestor on which the verb is actually defined.";
object = args[1];
verbname = args[2];
while (E_VERBNF == (vi = verb_info(object, verbname)))
object = parent(object);
endwhile
return vi ? {object} | 0;
.
#53:3
"Usage: has_callable_verb(object, verb)";
"See if an object has a verb that can be called by another verb (i.e., that has its x permission bit set).";
"Return {location}, where location is the object that defines the verb, or 0 if the object doesn't have the verb.";
object = args[1];
verbname = args[2];
while (valid(object))
if (index(verb_info(object, verbname)[2], "x") && verb_code(object, verbname))
return {object};
endif
object = parent(object);
endwhile
return 0;
.
#53:4
what = args[1];
if (what.owner != caller_perms())
set_task_perms(caller_perms());
endif
verbs = {};
while (valid(what))
verbs = {@verbs(what) || {}, @verbs};
what = parent(what);
endwhile
return verbs;
.
#53:5
":match_verb(OBJ object, STR verb)";
"Find out if an object has a given verb, and some information about it.";
"Returns {OBJ location, STR verb} if matched, 0 if not.";
"Location is the object on which it is actually defined, verb is a name";
"for the verb which can subsequently be used in verb_info (i.e., no";
"asterisks).";
verbname = strsub(args[2], "*", "");
object = args[1];
while (E_VERBNF == (info = verb_info(object, verbname)))
object = parent(object);
endwhile
return info ? {object, verbname} | 0;
.
#53:6
":isa(x,y) == valid(x) && (y==x || y in :ancestors(x))";
what = args[1];
targ = args[2];
while (valid(what))
if (what == targ)
return 1;
endif
what = parent(what);
endwhile
return 0;
.
#53:7
"Usage: ancestors(object[, object...])";
"Return a list of all ancestors of the object(s) in args, with no duplicates.";
"If called with a single object, the result will be in order ascending up the inheritance hierarchy. If called with multiple objects, it probably won't.";
ret = {};
for o in (args)
what = o;
while (valid(what = parent(what)))
ret = setadd(ret, what);
endwhile
endfor
return ret;
.
#53:8
what = args[1];
kids = children(what);
result = {};
for x in (kids)
result = {@result, @this:descendants(x)};
endfor
return {@kids, @result};
.
#53:9
set_task_perms(caller_perms());
what = args[1];
kids = children(what);
result = {};
for x in (kids)
result = {@result, @this:descendants_suspended(x)};
endfor
$command_utils:suspend_if_needed(0);
return {@kids, @result};
.
#53:10
r = {what = args[1]};
for k in (children(what))
r = {@r, @this:(verb)(k)};
endfor
return r;
.
#53:11
":branches(object) => list of all descendants of object which have children.";
if (kids = children(object = args[1]))
s = {object};
for k in (kids)
s = {@s, @this:branches(k)};
endfor
return s;
else
return {};
endif
.
#53:12
":branches_suspended(object) => descendants of object having children.";
"this version calls suspend(0) as needed";
set_task_perms(caller_perms());
if (kids = children(object = args[1]))
s = {object};
for k in (kids)
$command_utils:suspend_if_needed(0);
s = {@s, @this:branches_suspended(k)};
endfor
return s;
else
return {};
endif
.
#53:13
":leaves(object) => list of all childless descendents of object";
s = {};
for k in (children(args[1]))
s = {@s, @this:leaves(k)};
endfor
return s || {args[1]};
.
#53:14
":leaves_suspended(object) => list of all childless descendents of object";
"this versions calls suspend(0) as needed";
set_task_perms(caller_perms());
s = {};
for k in (children(args[1]))
$command_utils:suspend_if_needed(0);
s = {@s, @this:leaves_suspended(k)};
endfor
return s || {args[1]};
.
#53:15
"$object_utils:contains(obj1, obj2) -- does obj1 contain obj2?";
"";
"Return true iff obj2 is under obj1 in the containment hierarchy; that is, if obj1 is obj2's location, or its location's location, or ...";
loc = args[1];
what = args[2];
while (valid(what))
what = what.location;
if (what == loc)
return valid(loc);
return 1;
endif
endwhile
return 0;
.
#53:16
"all_contents(object)";
"Return a list of all objects contained (at some level) by object.";
res = {};
for y in (args[1].contents)
res = {@res, y, @$object_utils:all_contents(y)};
endfor
return res;
.
#53:17
"findable_properties(object)";
"Return a list of properties on those members of object's ancestor list that are readable or are owned by the caller (or all properties if the caller is a wizard).";
what = args[1];
props = {};
who = caller_perms();
while (what != $nothing)
if ((what.r || (who == what.owner)) || who.wizard)
props = {@properties(what), @props};
endif
what = parent(what);
endwhile
return props;
.
#53:18
"owned_properties(what[, who])";
"Return a list of all properties on WHAT owned by WHO.";
"Only wizardly verbs can specify WHO; mortal verbs can only search for properties owned by their own owners. For more information, talk to Gary_Severn.";
"map_arg([n,]object,verb,@args) -- assumes the nth element of args is a list, calls object:verb(@args) with each element of the list substituted in turn, returns the list of results. n defaults to 1.";
results = listappend(results, object:(verb)(@listset(rest, a, n)));
endfor
return results;
.
#56:5
":map_builtin(objectlist,func) applies func to each of the objects in turn and returns the corresponding list of results. This function is mainly here for completeness -- in the vast majority of situations, a simple for loop is better.";
set_task_perms(caller_perms());
if (!((builtin = args[2]) in {"tostr", "tonum", "toobj", "typeof", "length", "random", "ctime", "valid", "parent", "children", "properties", "verbs", "is_player", "idle_seconds", "connected_seconds"}))
"sort(list[,keys]) => sorts keys (assumed to be all numbers or strings) and returns list with the corresponding permutation applied to it. keys defaults to the list itself.";
":sort_suspended(interval,list[,keys]) => sorts keys (assumed to be all numbers or strings) and returns list with the corresponding permutation applied to it. keys defaults to the list itself.";
"iassoc_prefix(target,list[,index]) returns the index of the first element of `list' whose own index-th element has target as a prefix. Index defaults to 1.";
if ((index(string, "#") == 1) && ($code_utils:toobj(string) != E_TYPE))
"...avoid the `I don't know which `#-2' you mean' message...";
if (!valid(match_result))
player:(tell)(tostr(string, " does not exist."));
endif
return !valid(match_result);
elseif (match_result == $nothing)
player:(tell)("You must give the name of some object.");
elseif (match_result == $failed_match)
player:(tell)(tostr("I see no \"", string, "\" here."));
elseif (match_result == $ambiguous_match)
player:(tell)(tostr("I don't know which \"", string, "\" you mean."));
elseif (!valid(match_result))
player:(tell)(tostr(match_result, " does not exist."));
else
return 0;
endif
return 1;
.
#57:1
":player_match_failed(result,string)";
" is exactly like :object_match_failed(result,string)";
" except that its messages are more suitable for player searches.";
":player_match_result(results,strings)";
" handles a list of results, also presumably from $string_utils:match_player(strings), printing messages to player for *each* of the nonmatching strings. It returns a list, an overall result (true if some string didn't match --- just like player_match_failed), followed by the list players that matched.";
"";
"An optional 3rd arg gives an identifying string to prefix to each of the nasty messages.";
"... player_match_result quietly skips over blank strings";
if (pmf)
plyr:(tell)("You must give the name of some player.");
bombed = 1;
endif
elseif (result == $failed_match)
plyr:(tell)(tostr(cmdid, "\"", strings[i], "\" is not the name of any player."));
bombed = 1;
elseif (result == $ambiguous_match)
lst = $player_db:find_all(strings[i]);
plyr:(tell)(tostr(cmdid, "\"", strings[i], "\" could refer to ", (length(lst) > 20) ? tostr("any of ", length(lst), " players") | $string_utils:english_list($list_utils:map_arg(2, $string_utils, "pronoun_sub", "%n (%#)", lst), "no one", " or "), "."));
bombed = 1;
else
plyr:(tell)(tostr(result, " does not exist."));
bombed = 1;
endif
endfor
return pmf ? bombed | {bombed, @pset};
.
#57:2
"$command_utils:read() -- read a line of input from the player and return it";
"Optional argument is a prompt portion to replace `a line of input' in the prompt.";
"";
"Returns E_PERM if the current task is not a command task that has never called suspend().";
if (args && (typeof(args[1]) == STR))
prompt = args[1];
else
prompt = "a line of input";
endif
c = callers();
p = c[length(c)][5];
p:notify(tostr("[Type ", prompt, " or `@abort' to abort the command.]"));
ans = read();
if (typeof(ans) == ERR)
return ans;
elseif ($string_utils:trim(ans) == "@abort")
p:notify(">> Command Aborted <<");
kill_task(task_id());
else
return ans;
endif
.
#57:3
"$command_utils:read_lines() -- read zero or more lines of input";
"";
"Returns a list of strings, the lines typed by the player. Returns E_PERM if the current task is not a command task that has never called suspend().";
"In order that one may enter arbitrary lines, including \"@abort\" or \".\", if the first character in an input line is `.' and there is some nonwhitespace afterwords, the `.' is dropped and the rest of the line is taken verbatim, so that, e.g., \".@abort\" enters as \"@abort\" and \"..\" enters as \".\".";
c = callers();
p = c[length(c)][5];
p:notify("[Type lines of input; use `.' to end or `@abort' to abort the command.]");
":yes-or-no([prompt]) -- prompts the player for a yes or no answer and returns a true value iff the player enters a line of input that is some prefix of \"yes\"";
"";
"Returns E_NONE if the player enters a blank line, E_INVARG, if the player enters something that isn't a prefix of \"yes\" or \"no\", and E_PERM if the current task is not a command task that has never called suspend().";
"$command_utils:read_lines_escape(escapes[,help]) -- read zero or more lines of input";
"";
"Similar to :read_lines() except that help is available and one may specify other escape sequences to terminate the read.";
" escapes should be either a string or list of strings; this specifies which inputs other from `.' or `@abort' should terminate the read (... don't use anything beginning with a `.').";
" help should be a string or list of strings to be printed in response to the player typing `?'; the first line of the help text should be a general comment about what the input text should be used for. Successive lines should describe the effects of the alternative escapes.";
"Returns {end,list-of-strings-input} where end is the particular line that terminated this input or 0 if input terminated normally with `.'. Returns E_PERM if the current task is not a command task that has never called suspend(). ";
"@abort and lines beginning with `.' are treated exactly as with :read_lines()";
p:notify(tostr("[Type lines of input; `?' for help; end with `", $string_utils:english_list(escapes, "", "' or `", "', `", ""), "'.]"));
ans = {};
escapes[1..0] = {"?"};
"... set up the help text...";
help = {@args, "You are currently in a read loop."}[2];
if (typeof(help) != LIST)
help = {help};
endif
help[2..1] = {"Type `.' on a line by itself to finish.", "Anything else with a leading period is entered with the period removed.", "Type `@abort' to abort the command completely."};
while (typeof(line = read()) != ERR)
if ((trimline = $string_utils:trimr(line)) in escapes)
if (trimline == ".")
return {0, ans};
elseif (trimline == "@abort")
p:notify(">> Command Aborted <<");
kill_task(task_id());
elseif (trimline == "?")
p:notify_lines(help);
else
return {trimline, ans};
endif
else
if (line && (line[1] == "."))
line[1..1] = "";
endif
ans = {@ans, line};
endif
endwhile
return line;
.
#57:6
"Suspend, using output_delimiters() in case a client needs to keep track";
"of the output of the current command.";
"Args are TIME, amount of time to suspend, and optional (misnamed) OUTPUT.";
"If given no OUTPUT, just do a suspend.";
"If OUTPUT is neither list nor string, suspend and return output_delimiters";
"If OUTPUT is a list, it should be in the output_delimiters() format:";
" {PREFIX, SUFFIX}. Use these to handle that client stuff.";
"If OUTPUT is a string, it should be SUFFIX (output_delimiters[2])";
"See if we're running out of ticks or seconds, and if so suspend(<time>) and return true. If more than one arg is given, print the remainder with player:tell.";
if (this:running_out_of_time())
" && valid(player)) -- taking check out for now ";
if (ann = listdelete(args, 1))
player:tell(@ann);
endif
data = {task_id(), callers()};
this:suspend_database_add(data);
set_task_perms(caller_perms());
suspend(args[1]);
this:suspend_database_remove(data);
return 1;
endif
.
#57:9
":dump_lines(text) => text `.'-quoted for :read_lines()";
" text is assumed to be a list of strings";
"Returns a corresponding list of strings which, when read via :read_lines, ";
"produces the original list of strings (essentially, any strings beginning ";
"@grants <object> to <player> --- same as @grant but may suspend.";
"@transfer <expression> to <player> -- like 'grant', but evalutes a possible list of objects to transfer, and modifies quota.";
"Ownership of the object changes as in @chown and :set_owner (i.e., .owner and all c properties change). In addition all verbs and !c properties owned by the original owner change ownership as well. Finally, for !c properties, instances on descendant objects change ownership (as in :set_property_owner).";
if ((!player.wizard) || (player != this))
player:notify("Sorry.");
return;
endif
set_task_perms(player);
if ((!iobjstr) || (!dobjstr))
return player:notify(tostr("Usage: ", verb, " <object> to <player>"));
endif
if ($command_utils:player_match_failed(newowner = $string_utils:match_player(iobjstr), iobjstr))
player:notify(tostr(dobj.name, " is now a programmer. ", dobj.ppc, " quota is currently ", dobj.ownership_quota, "."));
player:notify(tostr(dobj.name, " and the other wizards have been notified."));
if (msg = this:programmer_victim_msg())
dobj:notify(msg);
endif
if ($object_utils:isa(dobj.location, $room) && (msg = this:programmer_msg()))
dobj.location:announce_all_but({dobj}, msg);
endif
elseif (result == E_NONE)
player:notify(tostr(dobj.name, " (", dobj, ") is already a programmer..."));
else
player:notify(tostr(result));
endif
.
#58:4
if (!player.wizard)
player:notify("Nice try, but permission denied.");
return;
elseif (args == {})
player:notify(tostr("Continuing with this command will destroy all but the central core of the database. If you're really sure that you want to do this, type '", verb, " ", tonum(o = create(#1)), "' now."));
recycle(o);
return;
elseif (toobj(tonum(args[1])) != max_object())
player:notify(tostr("Nice try, but you mistyped the self-destruct password. Type '", verb, "' again to get a new password."));
return;
elseif (verb_info($wiz, verb)[1] != player)
player:notify("Sorry, but you must own this verb in order to use it.");
return;
endif
"----------------------------------------";
player:notify("Blowing away $local...");
$local = #-1;
"----------------------------------------";
player:notify("Identifying objects to be saved...");
saved = {#0, player};
saved_props = {};
for p in (properties(#0))
v = #0.(p);
if ((typeof(v) == OBJ) && valid(v))
saved = setadd(saved, v);
saved_props = {@saved_props, p};
endif
endfor
for o in (saved)
"Also save non-$ objects that are ancestors of $ objects";
"but leave out non-$ player classes";
if (!$object_utils:isa(o, $player))
p = parent(o);
while (valid(p))
saved = setadd(saved, p);
p = parent(p);
endwhile
endif
endfor
$player_class = $player;
"----------------------------------------";
player:notify("Killing all queued tasks ...");
for t in (queued_tasks())
kill_task(t[1]);
endfor
"----------------------------------------";
player:notify("Stripping you of any personal verbs and/or properties ...");
suspend(0);
for i in [1..length(verbs(player))]
delete_verb(player, "0");
endfor
for p in (properties(player))
delete_property(player, p);
endfor
chparent(player, $wiz);
for p in ($object_utils:all_properties(player))
player.(p) = $wiz.(p);
endfor
player.name = "Wizard";
player.aliases = {"Wizard"};
player.description = "";
player.key = 0;
player.ownership_quota = 100;
player.password = 0;
$gender_utils:set(player, "neuter");
"----------------------------------------";
suspend(0);
player:notify("Making you or $hacker the owner of every saved object, verb and property ...");
for i in [1..length(saved)]
if ($command_utils:running_out_of_time())
suspend(0);
player:notify(tostr("... finished ", i - 1, " out of ", length(saved), " saved objects ..."));
endif
o = saved[i];
if (valid(o.owner) && o.owner.wizard)
o.owner = player;
else
o.owner = $hacker;
endif
old_verbs = {};
for j in [0..length(verbs(o)) - 1]
if ((seconds_left() < 2) || (ticks_left() < 2000))
suspend(0);
player:notify(tostr("... finished ", i - 1, " out of ", length(saved), " saved objects ..."));
endif
vname = tostr(j);
info = verb_info(o, vname);
if (valid(info[1]) && info[1].wizard)
info = listset(info, player, 1);
else
info = listset(info, $hacker, 1);
endif
set_verb_info(o, vname, info);
if (index(info[3], "(old)"))
old_verbs = {vname, @old_verbs};
endif
endfor
for vname in (old_verbs)
delete_verb(o, vname);
endfor
for p in ($object_utils:all_properties(o))
if ((seconds_left() < 2) || (ticks_left() < 2000))
suspend(0);
player:notify(tostr("... finished ", i - 1, " out of ", length(saved), " saved objects ..."));
endif
info = property_info(o, p);
if (valid(info[1]) && info[1].wizard)
info = listset(info, player, 1);
else
info = listset(info, $hacker, 1);
endif
set_property_info(o, p, info);
endfor
endfor
"----------------------------------------";
player:notify("Removing all unsaved :recycle and :exitfunc verbs ...");
for i in [0..tonum(max_object())]
o = toobj(i);
if (i && ((i % 1000) == 0))
player:notify(tostr("... ", o));
endif
$command_utils:suspend_if_needed(0);
if (valid(o) && (!(o in saved)))
for v in ({"recycle", "exitfunc"})
while ((hv = $object_utils:has_verb(o, v)) && (hv[1] == o))
delete_verb(o, v);
endwhile
endfor
endif
endfor
"----------------------------------------";
player:notify("Recycling unsaved objects ...");
add_property(this, "mcd_pos", 0, {player, "r"});
suspend(0);
this:mcd_2(saved, saved_props);
.
#58:5
if (!player.wizard)
player:notify("Sorry.");
return;
elseif ($code_utils:task_valid($shutdown_task))
player:notify("Shutdown already in progress.");
return;
endif
if (s = match(argstr, "^in +%([0-9]+%) +"))
bounds = s[3][1];
delay = tonum(argstr[bounds[1]..bounds[2]]);
argstr = argstr[s[2] + 1..length(argstr)];
else
delay = 2;
endif
if (!$command_utils:yes_or_no(tostr("Do you really want to shut down the server in ", delay, " minutes?")))
msg = tostr("*** The server will be shut down by ", player.name, " (", player, ") in ", $time_utils:english_time(announce_times[i]), ": ", argstr, " ***");
"...use raw notify() since :notify() verb could be broken...";
"@net-who player player player prints specified users and current or most recent connected host.";
"@net-who from hoststring prints all players who have connected from that host or host substring. Substring can include *'s, e.g. @net-who from *.foo.edu.";
set_task_perms(player);
su = $string_utils;
if ((prepstr == "from") && dobjstr)
player:notify(tostr("Usage: ", verb, " from <host string>"));
"turns a player into a newt. It can get better...";
"Installs $wiz_utils:newt_confunc on a user as :confunc. It saves any existing :confunc the user may have as :denewt_confunc. @denewt checks that their :confunc is the same as $wiz_utils:newt_confunc (if not it renames it to :newt_confunc and complains). If so, it deletes it, and renames any :denewt_confunc to :confunc.";
"Sends mail to $newt_log giving .all_connect_places and commentary.";
if ($object_utils:isa(who.location, $room) && (msg = player:newt_msg()))
who.location:announce_all_but({who}, msg);
endif
endif
.
#58:21
"@denewt <player> [commentary]";
"Renames the player's :confunc to :newt_confunc, then checks that it is is the same as $wiz_utils:newt_confunc, if not complains. If so, it deletes it, and renames any :denewt_confunc to :confunc.";
player:notify(tostr(who.name, "'s :confunc was not identical to $wiz_utils:newt_confunc. Not automatically rmverbed. Verify and manually @rmverb it."));
info = {@newargs, @info[length(newargs) + 1..length(info)]};
result = set_verb_args(object, name, info);
if (result == E_INVARG)
player:notify(tostr("\"", info[2], "\" is not a valid preposition (?)"));
elseif (typeof(result) == ERR)
player:notify(tostr(result));
else
player:notify("Verb arguments changed.");
endif
endif
.
#59:3
"A MOO-code evaluator. Type `;CODE' or `eval CODE'.";
"Calls player:eval_cmd_string to first transform CODE in any way appropriate (e.g., prefixing .eval_env) and then do the actual evaluation. See documentation for this:eval_cmd_string";
"If you set your .eval_time property to 1, you find out how many ticks and seconds you used.";
"If eval-d is used, the evaluation is performed as if the debug flag were unset.";
if (player != this)
player:tell("I don't understand that.");
return;
endif
set_task_perms(player);
result = player:eval_cmd_string(argstr, verb != "eval-d");
x = add_verb(object, {owner, perms, name}, verbargs);
if (x == E_INVARG)
player:notify(tostr(rest ? tostr("\"", perms, "\" is not a valid set of permissions.") | tostr("\"", verbargs[2], "\" is not a valid preposition (?)")));
"OK, parsed the line, and punted them if it was bogus. This verb could have been a bit shorter at the expense of readability. I think it's getting towards unreadable as is. At this point we've set_task_perms'd, and set up an enormous number of local variables. Evaluate them in the order we set them, and we should never get var not found.";
queued_tasks = queued_tasks();
killed = 0;
if (taskid)
returnval = kill_task(taskid);
if (typeof(returnval) == ERR)
player:notify(tostr("Invalid task ID ", taskid, "."));
player:notify("Something is funny; I didn't understand your @kill command. You shouldn't have gotten here. Please send yduJ mail saying you got this message from @kill, and what you had typed to @kill.");
endif
if (!killed)
player:notify("No tasks killed.");
endif
.
#59:10
if (!player.programmer)
player:notify("You need to be a programmer to do this.");
player:notify("If you want to become a programmer, talk to a wizard.");
return;
endif
$verb_editor:invoke(argstr, verb);
.
#59:11
"Usage: @copy source:verbname to target[:verbname]";
" the target verbname, if not given, defaults to that of the source. If the target verb doesn't already exist, a new verb is installed with the same args, names, code, and permission flags as the source. Otherwise, the existing target's verb code is overwritten and no other changes are made.";
"This the poor man's version of multiple inheritance... the main problem is that someone may update the verb you're copying and you'd never know.";
set_task_perms(player);
if (!player.programmer)
player:notify("You need to be a programmer to do this.");
player:notify("If you want to become a programmer, talk to a wizard.");
return;
endif
if ((!(from = $code_utils:parse_verbref(dobjstr))) || (!iobjstr))
player:notify(tostr("Usage: ", verb, " obj:verb to obj:verb"));
player:notify(tostr(" ", verb, " obj:verb to obj"));
player:notify(tostr(" ", verb, " obj:verb to :verb"));
player:notify("No property name conflicts found.");
endif
.
#59:23
"set_eval_env(string);";
"Run <string> through eval. If it doesn't compile, return E_INVARG. If it crashes, well, it crashes. If it works okay, set .eval_env to it and set .eval_ticks to the amount of time it took.";
player:notify(tostr("You can't clear ", dobj, ".", prop, "; none of the ancestors define that property."));
elseif (typeof(result) == ERR)
player:notify(tostr(result));
else
player:notify(tostr("Property ", dobj, ".", prop, " cleared; value is now ", $string_utils:print(dobj.(prop)), "."));
endif
.
#59:25
"Syntax: @disown <object> [from <object>]";
"This command is used to remove unwanted children of objects you control. If you control an object, and there is a child of that object you do not want, this command will chparent() the object to its grandparent.";
"... why is he using @disown?... probably by mistake...";
player:notify(tostr(victim.name, " (", victim, ") is yours. Use @chparent."));
elseif (!valid(parent))
player:notify(tostr(victim.name, " (", victim, ") is already an orphan."));
elseif (!$perm_utils:controls(player, parent))
player:notify(tostr(parent.name, " (", parent, "), the parent of ", victim.name, " (", victim, "), is not yours."));
elseif (!valid(grandparent = parent(parent)))
"... still not sure about this... do we care? --Rog...";
player:notify(tostr(victim.name, " (", victim, ") has no grandparent to take custody."));
else
chparent(victim, grandparent);
player:notify(tostr(victim.name, " (", victim, ")'s parent is now ", grandparent.name, " (", grandparent, ")."));
endif
.
#59:26
":eval_cmd_string(string[,debug])";
"Evaluates the string the way this player would normally expect to see it evaluated if it were typed on the command line. debug (defaults to 1) indicates how the debug flag should be set during the evaluation.";
" => {@eval_result, ticks, seconds}";
"where eval_result is the result of the actual eval() call.";
"";
"For the case where string is an expression, we need to prefix `return ' and append `;' to string before passing it to eval(). However this is not appropriate for statements, where it is assumed an explicit return will be provided somewhere or that the return value is irrelevant. The code below assumes that string is an expression unless it either begins with a semicolon `;' or one of the MOO language statement keywords.";
"Next, the substitutions described by this.eval_subs, which should be a list of pairs {string, sub}, are performed on string";
"Finally, this.eval_env is prefixed to the beginning while this.eval_ticks is subtracted from the eventual tick count. This allows string to refer to predefined variables like `here' and `me'.";
set_task_perms(caller_perms());
program = (args[1] + ";");
debug = ({@args, 1}[2] ? 33 | 0);
if (!match(program, "^ *%(;%|%(if%|fork?%|return%|while%)[^a-z0-9A-Z_]%)"))
program = ("return " + program);
endif
program = tostr(this.eval_env, ";", $code_utils:substitute(program, this.eval_subs));
"This spills out all properties and verbs on an object, calling suspend at appropriate intervals.";
" id=#nnn -- specifies an idnumber to use in place of the object's actual id (for porting to another MOO)";
" noprops -- don't show properties.";
" noverbs -- don't show verbs.";
" create -- indicates that a @create command should be generated and all of the verbs be introduced with @verb rather than @args; the default assumption is that the object already exists and you're just doing this to have a look at it.";
set_task_perms(player);
dobj = player:my_match_object(dobjstr);
if ($command_utils:object_match_failed(dobj, dobjstr))
"... we have a * verb. may as well forget trying to list...";
"... the rest; they're invisible. set v to something nonstring.";
v = E_TYPE;
else
v = tostr(tonum(v) + 1);
endif
$command_utils:suspend_if_needed(0);
endwhile
player:notify("\"***finished***");
.
#59:28
"Copied from Player Class hacked with eval that does substitutions and assorted stuff (#8855):# by Geust (#24442) Sun May 9 20:19:05 1993 PDT";
"#<string>[.<property>|.parent] [exit|player|inventory] [for <code>] returns information about the object (we'll call it <thing>) named by string. String is matched in the current room unless one of exit|player|inventory is given.";
"If neither .<property>|.parent nor <code> is specified, just return <thing>.";
"If .<property> is named, return <thing>.<property>. .parent returns parent(<thing>).";
"If <code> is given, it is evaluated, with the value returned by the first part being substituted for %# in <code>.";
"For example, the command";
" #JoeFeedback.parent player for tonum(%#)";
"will return 26026 (unless Joe has chparented since writing this).";
"This works exactly like the builtin eval() except that the code is evaluated ";
"as if the d flag were unset.";
code = {"set_verb_code(this,\"1\",{\"\\\"Do not remove this verb! This is an auxiliary verb for :eval_d().\\\";\"});", "dobj=iobj=this=#-1;", "dobjstr=iobjstr=prepstr=argstr=verb=\"\";", tostr("caller=", caller, ";"), "set_task_perms(caller_perms());", @args};
"... this shouldn't happen. I'm not setting this code -d just yet...";
return svc;
else
return 1;
endif
endif
.
#60:14
"$code_utils:parse_propref(string)";
"Parses string as a MOO-code property reference, returning {object-string, prop-name-string} for a successful parse and false otherwise. It always returns the right object-string to pass to, for example, this-room:match_object.";
s = args[1];
if (dot = index(s, "."))
object = s[1..dot - 1];
prop = s[dot + 1..length(s)];
if ((object == "") || (prop == ""))
return 0;
elseif (object[1] == "$")
object = #0.(object[2..length(object)]);
if (typeof(object) != OBJ)
return 0;
endif
object = tostr(object);
endif
elseif (index(s, "$") == 1)
object = "#0";
prop = s[2..length(s)];
else
return 0;
endif
return {object, prop};
.
#60:15
"$code_utils:parse_verbref(string)";
"Parses string as a MOO-code verb reference, returning {object-string, verb-name-string} for a successful parse and false otherwise. It always returns the right object-string to pass to, for example, this-room:match_object().";
s = args[1];
if (colon = index(s, ":"))
object = s[1..colon - 1];
verbname = s[colon + 1..length(s)];
if (!(object && verbname))
return 0;
elseif (object[1] == "$")
pname = object[2..length(object)];
if ((!(pname in properties(#0))) || (typeof(object = #0.(pname)) != OBJ))
return 0;
endif
object = tostr(object);
endif
return {object, verbname};
else
return 0;
endif
.
#60:16
":parse_arg_spec(@args)";
" attempts to parse the given sequence of args into a verb_arg specification";
"returns {verb_args,remaining_args} if successful.";
if ((length(verbargs) >= 3) && (!(verbargs[3] in {"this", "any", "none"})))
return tostr("\"", verbargs[3], "\" is not a valid indirect object specifier.");
endif
return {verbargs, rest};
.
#60:17
if (server_version() != this._version)
this:_fix_preps();
endif
return this.prepositions;
.
#60:18
":short_prep(p) => shortest preposition equivalent to p";
"p may be a single word or one of the strings returned by verb_args().";
if (server_version() != this._version)
this:_fix_preps();
endif
word = args[1];
word = word[1..index(word + "/", "/") - 1];
if (p = (word in this._other_preps))
return this._short_preps[this._other_preps_n[p]];
elseif (word in this._short_preps)
return word;
else
return "";
endif
.
#60:19
if (server_version() != this._version)
this:_fix_preps();
endif
prep = args[1];
if (p = (prep in this._short_preps))
return this.prepositions[p];
elseif (p = (prep in this._other_preps))
return this.prepositions[this._other_preps_n[p]];
else
return "";
endif
.
#60:20
":get_prep(@args) extracts the prepositional phrase from the front of args, returning a list consisting of the preposition (or \"\", if none) followed by the unused args.";
":get_prep(\"in\",\"front\",\"of\",...) => {\"in front of\",...}";
"Print (to player) the name and owner of every verb in the database whose code contains PATTERN as a substring. Optional second argument limits the search to the specified object or objects.";
"";
"Because it searches the entire database, this function may suspend the task several times before returning.";
"";
set_task_perms(caller_perms());
"... puts the task in a player's own job queue and prevents someone from learning about verbs that are otherwise unreadable to him/her.";
"Print (to player) the name and owner of every verb in the database whose code has a substring matches the regular expression PATTERN. Optional second argument limits the search to the specified object or objects.";
"";
"Because it searches the entire database, this function may suspend the task several times before returning.";
"";
set_task_perms(caller_perms());
"... puts the task in a player's own job queue and prevents someone from learning about verbs that are otherwise unreadable to him/her.";
" For players in the first list, idle/connected times are shown if the player is logged in, otherwise the last_connect_time is shown. For players in the second list, last_connect_time is shown, no matter whether the player is logged in.";
idles = (itimes = (offs = (otimes = {})));
for p in (args[2])
if (!valid(p))
caller:notify(tostr(p, " <invalid>"));
elseif (typeof(t = p.last_connect_time) == NUM)
if (!(p in offs))
offs = {@offs, p};
otimes = {@otimes, {-t, -t, p}};
endif
elseif (is_player(p))
caller:notify(tostr(p.name, " (", p, ") ", (t == E_PROPNF) ? "is not a $player." | "has a garbled .last_connect_time."));
else
caller:notify(tostr(p.name, " (", p, ") is not a player."));
endif
endfor
for p in (args[1])
if (p in offs)
elseif (!valid(p))
caller:notify(tostr(p, " <invalid>"));
elseif (typeof(i = idle_seconds(p)) != ERR)
if (!(p in idles))
idles = {@idles, p};
itimes = {@itimes, {i, connected_seconds(p), p}};
endif
elseif (typeof(t = p.last_connect_time) == NUM)
offs = {@offs, p};
otimes = {@otimes, {-t, -t, p}};
elseif (is_player(p))
caller:notify(tostr(p.name, " (", p, ") not logged in.", (t == E_PROPNF) ? "Not a $player." | "Garbled .last_connect_time."));
else
caller:notify(tostr(p.name, " (", p, ") is not a player."));
return {tostr("Sorry, but no help is available on ", object.name, " (", object, ")."), tostr("Try `@examine ", what, "'", @about ? {" or `about ", what, "'"} | {}, ".")};
"Return a toad (child of #1, owned by $hacker) from this.contents. Move it to #-1. Recreate as a child of args[1], or of #1 if no args are given. Chown to caller_perms() or args[2] if present.";
what = (args ? args[1] | #1);
who = ((length(args) == 2) ? args[2] | caller_perms());
if (!(caller_perms().wizard || (who == caller_perms())))
return tostr("Option is a flag, use `+", option, "' or `-", option, "' (or `!", option, "')");
endif
.
#67:3
":_name(string) => full option name corresponding to string ";
" => $failed_match or $ambiguous_match as appropriate.";
if (((string = args[1]) in this.names) || (string in this.extras))
return string;
endif
char = (namestr = this._namelist)[1];
if (!(i = index(namestr, char + string)))
return $failed_match;
elseif (i != rindex(namestr, char + string))
return $ambiguous_match;
else
j = index(namestr[i + 1..length(namestr)], char);
return namestr[i + 1..(i + j) - 1];
endif
.
#67:4
":add_name(name[,isextra]) adds name to the list of options recognized.";
"name must be a nonempty string and must not contain spaces, -, +, !, or =.";
"isextra true means that name isn't an actual option (recognized by :get) but merely a name that the option setting command should recognize to set a particular combination of options. Actual options go in .names; others go in .extras";
name = args[1];
isextra = {@args, 0}[2];
if (!$perm_utils:controls(caller_perms(), this))
return E_PERM;
elseif ((!name) || match(name, "[-!+= ]"))
"...name is blank or contains a forbidden character";
requestor:tell("As you requested, the housekeeper tidies ", $string_utils:nn(object), " from ", $string_utils:nn(loc), " to ", $string_utils:nn(place), ".");
if ($object_utils:has_verb(loc, "announce_all_but"))
loc:announce_all_but({requestor, object}, "At ", requestor.name, "'s request, the ", this.name, " sneaks in, picks up ", object.name, " and hurries off to put ", ($object_utils:has_property(object, "po") && (typeof(object.po) == STR)) ? object.po | "it", " away.");
endif
this:moveit(object, place, requestor);
if ((loc = object.location) == oldloc)
return (object.name + " wouldn't go; ") + ((!place:accept(object)) ? (" perhaps " + $string_utils:nn(place)) + " won't let it in" | ((" perhaps " + $string_utils:nn(loc)) + " won't let go of it"));
endif
object:tell("The housekeeper puts you away.");
if ($object_utils:isa(loc, $room))
loc:announce_all_but({object}, "At ", requestor.name, "'s request, the housekeeper sneaks in, deposits ", object:title(), " and leaves.");
else
loc:tell("You notice the housekeeper sneak in, give you ", object:title(), " and leave.");
endif
return "";
.
#71:3
if (args)
if (!valid(who = args[1]))
return;
endif
player:tell(who.name, "'s personal cleanup list:");
return tostr("You may remove an object from ", this.name, " list only if you own the object, the place it is kept, or if you placed the original cleaning order.");
"Open a network connection to address/port. If the connect-connection-to is passed, then the connection will be connected to that object when $login gets ahold of it. If not, then the connection is just ignored by $login, i.e. not bothered by it with $welcome_message etc.";
"The object specified by connect-connection-to has to be a player (though it need not be a $player).";
"Returns the (initial) connection or an error, as in open_network_connection";
"this is a dummy. You have to decide what your leaves are going to look like and then write this verb accordingly. It should, given a leaf/list-element, return the corresponding key value. So for an ordinary alist, where all of the leaves are of the form {key,datum}, you want:";
"disallow connections to low number ports; necessary?";
return E_INVARG;
endif
opentime = time();
con = $network:open(args[1], args[2]);
opentime = (time() - opentime);
if (typeof(con) == ERR)
return con;
endif
read(con);
"eliminate blank line";
notify(con, args[3]);
results = {};
count = this.limit;
"perhaps this isn't necessary, but if a gopher source is slowly spewing things, perhaps we don't want to hang forever -- perhaps this should just fork a process to close the connection instead?";
